Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет Pascal (Паскаль)

program ss;
uses crt;
const
    n=5;
   type  stud=record
fam:string[30];
im:string[20];
otch:string[30];
pol:char;
voz:byte;
end;
var
i:integer;
st:array[1..100] of stud;
 
begin
clrscr;
for i:=1 to n do begin
with  st[i] do begin
Writeln('Введите фамилию студента');
readln(fam);
Writeln('Введите имя студента');
readln(im);
writeln('Введите отчество студента');
readln(otch);
Writeln('Введите пол студента');
readln(pol);
writeln('Введите во зраст студента');
readln(voz);
end;
end;
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
for i:=1 to n do begin
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
writeln;
Writeln('Студенты мужского пола старше 18-ти лет');
writeln;
for i:=1 to n do begin
if (st[i].pol='м') and (st[i].voz>17) then   begin
WriteLn('|','Фамилия':10,'|','Имя':8,'|','Отчество':10,'|','Пол':3,'|','Возраст':7,'|');
with st[i] do begin
write('|',fam:10,'|');
write(im:8,'|');
write(otch:10,'|');
write(pol:3,'|');
write(voz:7,'|');
end;
readln
end;
end;
end.