помогите закончить программу с файлами

[ZX Spectrum-128]

Нет. Таким не занимаюсь.

[робокоп]

я создал другую программу. посмотри те пожалуйста. у мине он не сортирует что то. хотел бы сам добить свою задачку

[робокоп]

Program Info_zapis_ch;
type

  anketa=record
    num:byte;
    fio: string[20];
    dat_r: string[5];
    adres: string[20];
  end;
  var
  F: file of anketa;
  R: anketa;
  month:integer;
  code:byte;
  s:string;
  begin
  assign(F,' H:\паскаль\anketa.txt');
  reset(F);
  {write('Фамилия-','Дата рождения-','Адрес-');}
  while not EOF(F) do 
begin
read (F,R);
writeln ('фамилия студента: ', R . fio );
writeln(' дата рождения : ', R.dat_r);
writeln('адрес : ', R.adres);
end;
begin
assign (F,'H:\паскаль\anketa.txt');
reset(F);
writeln ('-----------------------');
while not EOF(F) do 
begin
read (F,R);
s:=R.dat_r[4]+R.dat_r[5];
end;

begin
assign (F,'H:\паскаль\anketa.txt');
reset(F);
writeln ('-----------------------');
while not EOF(F) do 
begin
read (F,R);
if (month>=3) and (month<=5) then ;
end;
end;
close (F);
end;
end.

________
Код на форуме нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Что эта программа должна делать?

[робокоп]

вот. должна вывести фамилии тех у кого день рождение весной

[ZX Spectrum-128]

А я разве не решил вам эту задачу?

[робокоп]

решили. но ошибка выходит

[робокоп]

val(s,month,code);
вот в этом месте

[ZX Spectrum-128]

Я же не зря скриншот прикладывал, который показывает, что у меня отработало нормально.
Давайте скриншот ошибки на моих программах.

[ZX Spectrum-128]

Значит, дату вводили некорректно. Что-то типа
12.4
Я вам не зря говорил о том, что проверки на корректность даты нет.