Пусть шесть (6)...

Пусть шесть (6) населенных пунктов обозначены номерами от 1 до 6 (величина К) а 5 кандидатов-номерами от 1 до 5 (величина Н). Количество голосов набранныхкандидатами в каждом населенном пункте определяется формулой АКН = рандом (10 * 3 +50). вывести на экран таблицу результатов голосования, где в строках е данные из населенных пунктов, а в столбцах данные относительно конкурентных кандидатов. Определить и вывести кто из кандидатов набрал максимальное, а кто минимальное количество голосов в четвертом (4) населенном пункте
я нашол даные макс. а мин. никак не могу uses crt;
const n=5; k=6;
var a:array[1..10,1..10] of integer;
b:array[1..10] of integer;
i,j,max:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to k do
begin
a[i,j]:=random(10*3+50);
write(a[i,j]:5);
end;
writeln;
end;
max:=0;
for i:=1 to n do
begin
if a[i,4]>max then max:=a[i,4];
b:=max;
end;
writeln;
writeln(b:4);
readln;
end.

 

max:=0;
 for i:=1 to n do
 begin
   if a[i,4]>max then max:=a[i,4];
   b:=max;
 end;
writeln;
writeln(b:4);
 
честно говоря, не понимаю, зачем здесь используется массив b. можно сделать так
max:=0;
 for i:=1 to n do
   if a[i,4]>max then max:=a[i,4];
writeln;
writeln(max);
 
а для минимума все почти так же
const
  inf = 32767;
min:=inf;
 for i:=1 to n do
   if a[i,4]<min then min:=a[i,4];
writeln;
writeln(min);