Записи: Найти год с наименьшим номером, все весенние даты, самую позднюю дату

uses crt;
type
zap=record
d,m,y:integer;
end;
var
f:file;
a:array [1..100] of zap;
n,i,j,tt,q,max,min,min1,min2,max1,max2:integer;
sr:real;
procedure formir;
begin
     writeln('Vvdite rkol-vo zapiesi');
     readln(n);
     assign(f,'f3.dat');
     rewrite(f,1);
     reset(f);
     for i:=1 to n do
       begin
        write('Vvedite den mesyaca - >');
        readln(a[i].d);
        write('Vvedite mesyac goda - > ');
        readln(a[i].m);
        write('Vvedite god - >');
        readln(a[i].y);
        blockwrite(f,a[i],1);
         end;
     close(f);
     clrscr;
end;
procedure print;
begin
     clrscr;
     assign(f,'f3.dat');
     reset(f);
     while not eof(f) do
     begin
          blockread(f,a[i],1);
          i:=i+1;
     end;
     n:=i;
 for i:=0 to n-1 do
         begin
         reset(f);
          writeln (a[i].d,'/',a[i].m,'/',a[i].y);
          blockread(f,a[i],1);
         end;
     readln;
     close(f);
     clrscr;
end;
procedure naimensh;
 begin
     clrscr;
     assign(f,'f3.dat');
     reset(f);
     min:=a[1].y;
     min1:=a[1].m;
     min2:=a[1].d;
     while not eof(f) do begin
      blockread(f,a[i],1);
      i:=i+1;
     end;
     n:=i;
     reset(f);
      for i:=0 to n-1 do begin
        if (min>a[i].y) then begin
            min:=a[i].y; min1:=a[i].m; min2:=a[i].d;
            blockread(f,a[i],1);
           end; end;
           writeln('Қ*Ё¬Ҙ*миЁ© Ј®Ө ',min2,'/',min1,'/',min);
           reset(f);
 
     close(f);
     readln;
     clrscr;
end;
procedure bolsh;
 begin
     clrscr;
     assign(f,'f3.dat');
     reset(f);
     max:=a[1].y;
     max1:=a[1].m;
     max2:=a[1].d;
     while not eof(f) do begin
     blockread(f,a[i],1);
     i:=i+1;
     end;
     n:=i;
     reset(f);
     for i:=0 to n-1 do
      begin
           if (max<a[i].y) and (max<a[i].m) and (max<a[i].d) then
            begin
             max:=a[i].y; max1:=a[i].m; max2:=a[i].d;
             blockread(f,a[i],1);
            end;
      end;
           writeln('Қ*ЁЎ®«ми*п Ө*в* ',max2,'/',max1,'/',max);
     close(f);
     readln;
     clrscr;
end;
procedure vesn;
begin
     clrscr;
     assign(f,'f3.dat');
     reset(f);
    while not eof(f) do
     begin
        Blockread(f,a[i],1);
        I:=i+1;
    end;
    N:=I;
    reset(f);
    for i:=0 to n-1 do
          begin
                 if (a[i].m>2) and (a[i].m<6) then begin
                  reset(f);
                  writeln('‚ҘбҘ**ЁҘ Ө*Ё ',a[i].d,'/',a[i].m,'/',a[i].y);
                  blockread(f,a[i],1);
                 end;
 
          end;
    close(f);
    readln;
    clrscr;
end;
begin
     clrscr;
      writeln('Zdrastvuite ');
     tt:=0;
     while tt<=5 do
     begin
          writeln('MeHl-');
          writeln('1:Formirovanie');
          writeln('2:Pacne4aTqa');
          writeln('3:3agaHue 1');
          writeln('4:3agaHue 2');
          writeln('5:Ү*Ө**ЁҘ 3');
          writeln('6:‚ле®Ө');
          readln(tt);
          case tt of
               1:formir;
               2:print;
               3:naimensh;
               4:bolsh;
               5:vesn;
              end;
     end;
end.