Даны такие сведения о 20 владельцах авто: фамилия водителя, марка машины, и ее номер (целое число), пробег (целое число). Найти фамилию владельца машина которого осуществила максимальным пробег и количество машин, номер которых заканчивается цифрой 9 — Pascal(Паскаль)

type baza=record
  marka:string;;;
   fam:string[10];
   nom:string;
   prog:integer;
end;
var a: array [1..10] of baza;
   I,max,k: integer;
   s:string;
 
begin
   for I:=1 to 3 do
   begin
      writeln ('введите фамилию:');
      readln (a[I].fam);
      writeln ('введите марку:');
      readln (a[I].marka);
      writeln ('введите номер:');
      readln (a[I].nom);
       writeln ('введите пробег:');
      readln (a[I].prog);
      end;
max:=a[1].prog;
for i:=2 to 3 do
if a[i].prog>max then begin max:=a[i].prog;
writeln(a[i].fam);end;
for i:=1 to 3 do
begin
s:=a[i].nom;
k:=length(s);
if s[k]='9'then writeln('9= ',a[i].fam);
end;
end.