Дан файл с различными датами.в дате число,месяц и год.Найти весеннюю дату.

[JiLiYa]

Вот примерный код...

program VESENNIE DATI;

  Uses Crt;

  Var
        F: Text;
        s: String;
       

begin
clrscr;
Writeln('Vvedite puti k faylu');
readln(F);
reset(F);
i:=1;

procedure SpringDates(st: String);
  var b, month, day, year: String;
      i: Byte;
 begin
  Assign(F, st);
  Reset(F);

  while not EOF(F) do
   begin
    month:= '';
    day:= '';
    year:= '';

    Readln(F, b);

    for i:= Length(b) downto Length(b) - 3 do
     year:= b[i] + year;

    for i:= Length(b) - 5 downto Length(b) - 6 do
     month:= b[i] + month;

    for i:= Length(b) - 8 downto Length(b) - 9 do
     day:= b[i] + day;

    if (month = '03') or (month = '04') or (month = '05') then
     Writeln(day, '.', month, '.', year);

end;
 end;
readln;
end.

Если можно,подскажите,что тут нужно подправить....

[Sazary]

Исправленный вариант:

program VESENNIE_DATI;

  Uses Crt;

  Var
        F: Text;
        s: String;


procedure SpringDates(st: String);
  var b, month, day, year: String;
      i: Byte;
 begin
  i:=1;
  Assign(F, st);
  Reset(F);

  while not EOF(F) do
   begin
    month:= '';
    day:= '';
    year:= '';

    Readln(F, b);

    for i:= Length(b) downto Length(b) - 3 do
     year:= b[i] + year;

    for i:= Length(b) - 5 downto Length(b) - 6 do
     month:= b[i] + month;

    for i:= Length(b) - 8 downto Length(b) - 9 do
     day:= b[i] + day;

    if (month = '03') or (month = '04') or (month = '05') then
     Writeln(day, '.', month, '.', year);

  end;
 end;

begin
clrscr;
Writeln('Vvedite puti k faylu');
readln(s);
SpringDates(s);

readln;
end.

Проверял на файле с такими данными:

12.03.2007
14.01.2005
01.05.1999
12.12.1998
29.07.2004
30.04.2001