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

[робокоп]

ЗАДАЧА!!!

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

РЕШЕНИЕ!!

я создал две программы. одну для того что бы создать файл(анкету), а другую что бы считывать данные с этого файла.

Первая программа!

program primer1;
type
anketa=record
num:byte;
fio: string[20];
dat_r: string[5];
adres: string[20];
end;
var F: file of anketa;
R:anketa;
begin
Assign(F,'H:\Новая папка\anketa.txt');
Rewrite(F);
repeat
writeln ('введи номер-');
readln (R.num);
writeln ('введите фамилию');
readln (R.fio);
writeln ('введите дату рождения');
readln (R.dat_r);
writeln ('введите адрес');
readln(R.adres);
writeln ('ввод закончен');
writeln ;
writeln ('фамилия студента: ', R . fio );
writeln(' дата рождения : ', R.dat_r);
writeln('адрес : ', R.adres);
write(F,R);
until R.num=5; close (F);halt; end.

во второй программе я не могу вывести фамилию и адреса тех, у кого день рождения весной.
Вторая программа!

Program Info_zapis_ch;
type anketa=record
num:byte;
fio: string[5];
dat_r: string[5];
adres: string[5];
end;
var F: file of anketa;
R: anketa;
a,i: real;
begin
assign(F,'H:\Новая папка\anketa.txt');
reset(F);
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 ('-----------------------');

[ZX Spectrum-128]

Замечательно!
Забыли теги code!!
Вторая программа не до конца!!!

[робокоп]

извините если что то не правильно написал. я в первые на это форуме. мне вот бы закончить вторую программу)))

[ZX Spectrum-128]

Дата рождения в каком формате?
11.05 - 11 мая?

[робокоп]

11.05 желательно

[Mad_Cat]

Дык разбирай на число и месяц
если месяц>2 и месяц <6 выводи
но я б еще 1 тип ввел

Type Tdat = record
d:1..31;
m:1..12
end;

и его использовал

[ZX Spectrum-128]

1-я

program primer1;
type
  anketa=record
    num:byte;
    fio: string[20];
    dat_r: string[5];
    adres: string[20];
  end;
var
  F: file of anketa;
  R:anketa;
begin
  Assign(F,'anketa.dat');
  Rewrite(F);
  repeat
    writeln ('введи номер-');
    readln (R.num);
    writeln ('введите фамилию');
    readln (R.fio);
    writeln ('введите дату рождения');
    readln (R.dat_r);
    writeln ('введите адрес');
    readln(R.adres);
{writeln ('ввод закончен');
writeln ;
writeln ('фамилия студента: ', R . fio );
writeln(' дата рождения : ', R.dat_r);
writeln('адрес : ', R.adres);}
    write(F,R);
  until R.num=5;
  close (F);
{  halt;}
end.

2-я

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;
  a,i: real;
  month:integer;
  code:byte;
  s:string;
begin
  assign(F,'anketa.dat');
  reset(F);
  while not EOF(F) do
    begin
      read (F,R);
      s:=R.dat_r[4]+R.dat_r[5];
      val(s,month,code);

      if (month>=3) and (month<=5) then
        begin
          write ('фамилия студента: ', R . fio,' ' );
          write(' дата рождения : ', R.dat_r,' ');
          writeln('адрес : ', R.adres);
        end;
    end;
  close(f);
  readln;
end.

[робокоп]

спасибо вам большое))))

[ZX Spectrum-128]

Нет проверки на корректность месяца из считанной даты. Это желательно делать при вводе данных.

[робокоп]

а вы онлайн не помогаете на зачетах?