В каком населённом пункте проголосовало наибольшее количество людей?

const m=6; // Количество населенных пунктов
      n=5; // Количество кандидатов
      
var x:array [1..n,1..m] of integer; // Таблица результатов
    count:integer; // Кол-во проголосовавших
    i,j,z:byte; // Счетчики
    chislo,max:integer;    
Begin 
for i:=1 to n do
    Begin
    Count:=0; // Обнуляем
    for j:=1 to m do
        Begin
        X[i,j]:=Random(10*12+50); // Определим кол-во голосов за кандидата...
        Inc(Count,X[i,j]); // Считаем кол-во проголосовавших за кандидата...
        Write(X[i,j]:4);
        end;     
    Writeln('   =>   Проголосовало: ',Count,' чел.');
    
    //Находим макс
    chislo:=Count;
    end;
    begin
      if chislo > Count then Count:=chislo;
    end;
    writeln ('Макс значение: ',Count);
Readln;
end.

const m=6; // Количество населенных пунктов
      n=5; // Количество кандидатов
procedure line; //разделительная линия в таблице
var i:integer;
begin
write('|');
for i:=1 to 7+5*n+13 do write('-');
writeln('|');
end;
var x:array [1..m,1..n] of integer; // Таблица результатов
    y:array [1..m] of integer;//массив голосов по населенным пунктам
    i,j:byte; // Счетчики
    count:integer;//количество голосов за каждого кандидата
    max:integer;//номер пункта где больше всех проголосовало
begin
randomize;
writeln('Таблица голосования');
line;
write('|      |');
for i:=1 to n do
write(i:3,' |');
writeln('Проголосовало|');
line;
for i:=1 to m do
 begin
  write('|',i:4,'  |');
  y[i]:=0; // Обнуляем
  for j:=1 to n do
   begin
     x[i,j]:=random(10*12+50); // Определим кол-во голосов за кандидата...
     inc(y[i],x[i,j]); // Считаем кол-во проголосовавших за кандидата...
     write(x[i,j]:4,'|');
   end;
  writeln(y[i]:9,'    |');
 end;
line;
write('|Голоса|');
for j:=1 to n do
 begin
  count:=0;
  for i:=1 to m do
  inc(count,x[i,j]);
  write(count:4,'|');
 end;
writeln;
line;
max:=1;
for i:=2 to m do
if y[i]>y[max] then max:=i;
write('Больше всего проголосовало в пункте ',max);
end.