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

[Alexey8123495]

Сведения об автомобиле состоят из номера, марки, фамилии владельца, признака прохождения техосмотра. Написать программу для занесения в массив информации о N автомобилях. Найти номера и владельцев автомобилей, не прошедших техосмотр. Определить, какой марки автомобилей больше всего.
С последним пунктом проблема. Программа работает как надо до момента вывода информации об отсутствии техосмотра включительно.

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.

[Sciv]

Если я правильно понял код - у Вас есть сортировка записей по марке авто, но нет подсчёта количества для каждой марки.

[Serge_Bliznykov]

Сообщение от Alexey8123495

 writeLn('Какой марки автомобилей больше всего');
        for i:= 1 to n-1 do
           begin
             for m:= i+1 to n do
             if park[i].marka> park[m].marka then
....

этим кодом Вы сортируете массив по маркам (причём сортировка осуществляется в лексиграфическом (алфавитном) порядке.
Это не даёт Вам количества.
А Вам нужно количество (и при этом найти максимальное значение).

это можно сделать по такому алгоритму (схематично и НЕ ОПТИМАЛЬНО, зато просто):

markMostFreqIndex := 1; {считаем, что первая марка встречается чаще всего}
countMost := CountOfTheMark(park, n, 1); {подсчёт, сколько раз встретилась марка 1}

{ теперь поиск максимума: }
for i:=2 to n do begin
   countCurrent := CountOfTheMark(park, n, i);
   if countCurrent>countMost then begin
      markMostFreqIndex := i;
      countMost := countCurrent
   end; 
end;

WriteLn('Наиболее часто ( ', countMost, ' раз ) встречается марка: ',park[markMostFreqIndex].marka);

ну и последнее функция для подсчёта может быть "в лоб" написана так

type 
  TArrayOfCar =  array[1..10] of car;
var
  park: TArrayOfCar;

function CountOfTheMark( p : TArrayOfCar; n, Index : integer) : Integer;
var j, rez : integer;
begin
   rez := 0;
   for j:=1 to n do 
     if p[j].marka = p[Index].marka then Inc(rez);
   CountOfTheMark := rez;
end;