Вывод наибольшего элемента массива

type 
   car= Record
   marka: string [20];
   fio: string [20];
   nomer: integer;
   tex: char;
  end;
  Var
    park: array[1..10] of car;
    c: car;
    i,m,n: integer;
      Begin
        writeLn('Сколько машин в парке: ');
        ReadLn(n);
        writeLn ('Вводите данные по каждой машине');
        For i:= 1 to n do
        with park[i] do begin
        write ('Введите марку',i,'-го автомобиля');
        ReadLn(marka);
        write ('Введите фамилию',i,'-го владельца');
        ReadLn(fio);
        write ('Введите номер',i,'-го автомобиля');
        ReadLn(nomer);
        write ('Введите техосмотр',i,'-го автомобиля');
        ReadLn(tex);
      end;
        writeLn ('Номера и владельцы автомобилей без техосмотр');
        for i:=1 to n do
        if park[i].tex='-' then writeLn (park[i].fio:17, park[i].nomer:9);
        writeLn('Какой марки автомобилей больше всего');
        for i:= 1 to n-1 do
           begin
             for m:= i+1 to n do
             if park[i].marka> park[m].marka then
               begin
                 c:= park[i];
                 park[i]:= park[m];
                 park[m]:= c;
               end;
             writeLn (park[m].marka:12);
           end;
        ReadLn
      End.