Бьюсь несколько дней, ничего в голову не лезет (( Задача: а)Создать типизированный файл, содержащий сведения о друзьях.Структура фамилия, имя, дата рождения (дд.мм.гггг) , хобби б)Вывести на экран список друзей(фамилия имя и дата рождения), родившихся во время года Х (зима, лето и тд) и имеющих хобби 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;