Atividade de ILP

Program locadora;
Uses Crt; type TCadasCli = Record Nome:string[40]; sexo:char; endereco:string[100]; End; type TCadasFil = record titulo:string[30]; genero:string[15]; Qtde_DVDs:integer; DVDs_disponiveis:integer;
End;
type TLocacao = record cliente:longint; data:string[10]; vetor_de_filmes:array[1..3] of integer;
End;
CadasFil=array[1..100] of TCadasFil;
CadasCli=array[1..50] of TCadasCli;
CadasLoc=array[1..100] of TLocacao;

Var cadastroc:CadasCli; cadastrof:CadasFil; cadastrol:CadasLoc; num:integer;

Procedure cabecalho ( s : String);
Var
i,j : Integer;
Begin
ClrScr; for i := 1 to 80 do Write ('-'); j := (80-Length(s)) div 2; for i := 1 to j do Write (' '); WriteLn (s); for i := 1 to 80 do Write ('-'); WriteLn;
End;

procedure Cadastro_de_clientes;

var i,it,af: integer;

Begin cabecalho ('Cadastro_de_clientes'); it:=50; af:=1; repeat Begin for i:= 1 to it do if af2 then begin writeln('Digite o nome'); readln(cadastroc[i].Nome); writeln('Digite o sexo'); readln(cadastroc[i].sexo); writeln('endereco dos clientes'); readln(cadastroc[i].endereco); it:=it-1; writeln('Deseja cadastrar um novo cliente?'); writeln('Digite 1 para continuar e 2 para voltar ao menu principal'); readln(af); clrscr; end; End; until af=2; End;

Procedure Cadastro_de_filmes; var i,af,it:integer;

Begin cabecalho ('Cadastro_de_filmes'); it:=100; af:=1; repeat Begin for i:= 1 to 100 do if af2 then Begin writeln('Digite o titulo'); readln(cadastrof[i].titulo); writeln('Digite o genero'); readln(cadastrof[i].genero); writeln('Digite a quantidade total de dvds'); readln(cadastrof[i].Qtde_DVDs);