Помогите с задачкой на паскале!

[алексей555]

Бьюсь несколько дней, ничего в голову не лезет ((

Задача:

а)Создать типизированный файл, содержащий сведения о друзьях.Структура фамилия, имя, дата рождения (дд.мм.гггг) , хобби

б)Вывести на экран список друзей(фамилия имя и дата рождения), родившихся во время года Х (зима, лето и тд) и имеющих хобби Y(любое)!!

Проблема в следующем:

не получается вывести список (( проверьте ошибки,

Заранее огромное спасибо всем кто хотя бы натолкнёт на правильную волну !!

Собственно вот код:

type zap=record
fi:string[20];
dr:string[10];
xob:string[15]
end;
var z:zap;
f:file of zap;
m:string;
begin
writeln('Для окончания ввода наберите ноль и нажмите клавишу Enter ');
assign(f,'drug.dat');
rewrite(f);
write('Фамилия и имя друга: ');
readln(z.fi);
repeat
with z do
begin
write('дата рождения: ');
readln(dr);
write('хобби: ');
readln(xob);
write(f,z);
write('Фамилия и имя: ');
readln(fi);
end;
until z.fi='0';
close(f);
writeln('Файл создан')
end.

program ti_file;

type zap=record
fi:string[20];
dr:string;
xob:string[15]
end;
var z:zap;
f:file of zap;
m,vg,x,y:string;
err,n: integer;
begin
write('Введите время года: ');
readln(x);
write('хобби: ');
readln(y);
assign(f,'drug.dat');
reset(f);
while not eof(f) do
with z do
begin
read(f,z);
m:=copy(z.dr,4,2);
val(m,n,err);
case n of
01,02,12:vg:='зима';
03,04,05:vg:='весна';
06,07,08:vg:='лето';
09,10,11:vg:='осень'
end;
if (x=vg) and (y=z.xob) then
writeln('|',z.fi:10,'|':10,z.dr:10,'|':10,z.xob:15)
end;
close(f)
end.

program ti_file;

[алексей555]

Всё нашёл в чём проблема , стыдно, очень очень )) проблемка была банальной

Закройте пожалуйста тему!!

[ArtyomK]

dr:string[10];

dr:string;

Это? (:

[алексей555]

ArtyomK да, именно