База данных с типизированным файлом

program lab2;
uses crt;
type
   rec=record
   date:string[8];
   destmarka:string[20];
   ticketQ:byte;
end;
var
 i,j,n,MaxN,MN:byte;
 Rcrds:array[1..255] of Rec;
 MaxV:string;
 Max,MaxQ:word;
begin
clrscr;
 write('vvedite 4islo zapisej:');
 readln(n);
 writeln;
 for i:= 1 to n do
  begin
   write('vvedite ',i,'-ju datu:');
   readln(rcrds[i].date);
   write('vvedite ',i,'-ju marku:');
   readln(rcrds[i].destmarka);
   write('vvedite ',i,'-oe 4islo proga}I{:');
   readln(rcrds[i].ticketQ);
  end;
 clrscr;
 writeln('_____________________________________________');
 writeln('I data I        marka     I kol-vo proga}I{ I');
 writeln('I______I__________________I_________________I');
  for i:=1 to n do
 writeln('I',Rcrds[i].date:8,'I',Rcrds[i].destmarka:20,'I',Rcrds[i].ticketQ:14,'I');
 writeln('I______I__________________I_________________I');
 Max:=0;
 MN:=0;
 for i:=1 to n do
  begin
   MaxV:=Rcrds[i].date;
   MaxQ:=Rcrds[i].ticketQ;
   MaxN:=i;
   for j:=i+1 to n do
       if (Rcrds[j].date=MaxV) then
       MaxQ:=MaxQ+Rcrds[j].ticketQ;
   if(MaxQ>Max) then
    begin
     Max:=MaxQ;
     MN:=MaxN;
    end;
  end;
  writeln('naibolIIIee 4islo proda}I{(',Max,') prodano na ', Rcrds[MN].date,',');
 Max:=0;
 MN:=0;
 for i:=1 to n do
 begin
  MaxV:=Rcrds[i].destmarka;
  MaxQ:=Rcrds[i].ticketQ;
  MaxN:=i;
  for j:=i+1 to n do
    if (Rcrds[j].destmarka=MaxV) then
    MaxQ:=MaxQ+Rcrds[j].ticketQ;
   if (MaxQ>Max) then
    begin
    Max:=MaxQ;
    MN:=MaxN;
    end;
   end;
  writeln('naiboliiiee 4islo marok (',Max,') ', Rcrds[MN].destmarka,',');
  readkey;
  end.