Pascal – anket proqramı

salam.xəstəxanada xəstələr haqqinda informasiyani ozunde eks etdiren fayl yaratmaliyiq.struktur beledi:soyadi,anadan oldugu yer,yasi, cinsi,diaqnoz.asagidaki informasiyani capa cixaran proqram tertib etmeliyik;
18 yasdan boyuk olan xestelerin soyadi,anadan olduğu yer ve diaqnoz.proqrami yazmisam paskalda.amma if olan yerde sehv var.sehvi tapa bilmire.xahis edirem komek edin.mən basqalari kimi 0dan proqram istemirem.ozum yaziram amma duzelis edin xahis edirem.cox sagolun.

program yazi_tipi;
uses crt;
Type
anket=record
Soyad:string;
dog_yer:string;
yas:string;
cins:string;
diaqnoz:string;
end;
var
xeste:array [1..3] of anket;
i:byte;x:real;
begin for i:=1 to 3 do
with xeste[i] do
begin writeln ('xestenin soyadini daxil edin');
readln(soyad);
writeln('anadan oldugu yeri daxil edin');
readln(dog_yer);
writeln('yasini daxil edin');
readln(yas);
writeln('cinsini daxil edin');
readln(cins);
writeln('diaqnozunu daxil edin');
readln(diaqnoz);
end;
writeln('daxil etme bitdi');
for i:=1 to 3 do 
if (xeste[i].yas>18) then begin
for i:=1 to 2 do begin

writeln('xestenin soyadi:',xeste[i].soyad);
writeln('dog_yer:',xeste[i].dog_yer);
writeln('yas:',xeste[i].yas);
writeln('cins:',xeste[i].cins);
writeln('diaqnoz:',xeste[i].diaqnoz);
end;
end;
end.