Помогите дописать программу на Pascal

[SKKa404]

Как определить профессию, которую имеют большинство сотрудников?

const n=10;
      v=6;
type zap=record
         fam:string[10];
         str:string[10];
         vst:array[1..v] of real;
         prof:string[10];
         end;
var a:array[1..n] of zap;
    i,j:byte;
    x:zap;
    max,k,l:integer;
begin
randomize;
writeln('Введите данные');
for i:=1 to n do
 begin
  writeln('Человек ',i);
  with a[i] do
   begin
    write('Фамилия: ');readln(fam);
    write('Пол: ');readln(str);
    write('Профессия: ');readln(prof); 
   end;
 end;
writeln('Исходный список ');
writeln('------------------------------------------------');
writeln('|  Фамилия   |   Пол   |         Профессия           ');
writeln('------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  writeln('| ',fam:10,' | ',str:10,' |',prof:10,' |');
  end;
writeln('------------------------------------------');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].prof>a[j].prof then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln( 'Профессия , которую имеют большинство сотрудников');
writeln('-------------------------------');
writeln('|   Профессия   |   Фамилия   |');
writeln('-------------------------------');
for i:=1 to n do
with a[i] do
 begin
   writeln('| ',prof:10,' |',fam:10,' |');
 end;
writeln('------------------------------');
end.

[min@y™]

подход изначально неправильный.

prof:string[10]; // не надо так
profIndex: Integer; // надо так

мужики, кто вкурил, дообъясните товарищу про 2-й список