Записи. Посмотрите, как доделать

program p11;
 
uses crt;
type
sotrudniki=record
familia: string;
semeinoepolojenie: string;
god_rojdeniya: integer;
doljnost: string;
staj: integer;
end;
 
var
i: byte;
n,p,max: word;
m:string;
A:array [1..5] of sotrudniki;
 
begin
clrscr;
for i:=1 to 5 do begin
writeln('Фамилия: ');
readln(a[i].familia);
writeln('Семейное положение: ');
readln(a[i].semeinoepolojenie);
writeln('Год рождения: ');
readln(a[i].god_rojdeniya);
writeln('Должность ');
readln(a[i].doljnost);
writeln('Стаж работы: ');
readln(a[i].staj);
end;
 
clrscr;
for i:=1 to 5 do begin
with A[i] do writeln(familia:15, semeinoepolojenie:10, god_rojdeniya:4, doljnost:15, staj:2);
end;
 
writeln('Введите стаж работы ');
readln(p);
max:=0;
writeln('С наибольшим стажем работы ');
for i:=1 to 5 do begin
if a[i].staj>max then begin
max:=a[i].staj;
n:=i;
end;
 
with a[n] do
writeln(familia:15, semeinoepolojenie:10, god_rojdeniya:4, doljnost:15, staj:2);
readln;
end;
 
write('Введите семейное положение ');
read(m);
 
for i:=1 to 5 do begin
if a[i].god_rojdeniya>1984 then
 
if a[i].semeinoepolojenie=m then
with a[i] do
writeln(familia:15, semeinoepolojenie:10, god_rojdeniya:4, doljnost:15, staj:2);
 
end;
readln;
end.

for i:=1 to 5 do begin
   if a[i].staj>max then 
  begin
   max:=a[i].staj;
   n:=i;
  end;
end; 
with a[n] do
writeln(familia:15, semeinoepolojenie:10, god_rojdeniya:4, doljnost:15, staj:2);
readln;