Паскаль, массивы, поиск минимального элемента

[isJoga]

В общем такая задача,
даны массивы:
H1..H12-шифры постов гаи
F1..F12-фамилии дежурных на постах
N1..N12-число ДТП за смену

Вывести список дежурных, зарегистрировавших за смену от 5 и более ДТП

Указать пост с минимальным числом дтп

все получается более менее, но как вывести пост с минимальным количеством ДТП не выходит

program lab;
uses crt;
type
list=record

 var
 a:string[15];
 b:string[15];
 c:real;
  i,n:integer;
 m:array[1..12] of list;



begin
clrscr;
for i:=1 to 12 do
 with m[i] do
begin
gotoxy(10,5);
write('shifr');
gotoxy(10,6+i);
readln(a);
gotoxy(30,5);
write('fio');
gotoxy(30,6+i);
readln(b);
gotoxy(50,5);
write('dtp');
gotoxy(50,6+i);
readln(c);

begin {Вот эта часть не понятна вообще, как посчитать пост с минимальным количеством ДТП}
for i:=1 to 12 do
readln(c[i]);
minE:=c[1];
for i:=2 to 12 do
if c[i]<minE then
minE:=c[i];
writeln('минимальный пост вот этот' , b,c);
readln;

{вывод зарегестрировавших от 5 и более дтп, с этим вопросов нет}
if c>=5 then
gotoxy(30,10+i);
writeln('зарегистрировали от 5 и более ДТП', a,b);

end;


end.;
end.;

подскажите пожалуйста, если кто знает)

[isJoga]

пожалуйста, помогите)

[DoDge_VipeR]

min:=1;
for i:=1 to 12 do
if m[i].c<m[min].c then min:=i;
writeln('минимальный пост вот этот' ,m[min].a);

только записи нормально обьявите

[isJoga]

спасибо, но теперь выдает error 44 Field identifier expected (Нужен идентификатор поля)
что это значит?

[DoDge_VipeR]

что это значит?

дубль 2 Записи нормально обьявите