По двумерным массивам

uses crt;
const k=6;
      n=5;
var a:array[1..k,1..n+1] of integer;//матрица +1 столбец под суммы
    b:array[1..k] of integer;//массив
    i,j,sm,n1,k1:integer;
begin
clrscr;
randomize;
writeln('Результаты голосования:');//выводим заголовок
writeln('Кл. опр.':4*n+10);
for i:=1 to k do//по количеству пунктов
 begin
  sm:=0;
  for j:=1 to n do//по количеству кандидатов
   begin
    a[i,j]:=random(10*i+50);//присваиваем значения по условию
    write(a[i,j]:4);//выводим в строку
    sm:=sm+a[i,j];//считаем сумму в строке
   end;
  a[i,n+1]:=sm;//пишем ее в дополнительный столбец
  writeln(a[i,n+1]:7);//выводим с отступом
 end;
writeln;
write('Введите число для сравнения n1=');
readln(n1);
k1:=0;
for i:=1 to k do//по числу пунктов
if a[i,n+1]>n1 then//если значение суммы=последний столбец матрицы, больше числа
 begin
  k1:=k1+1;//считаем
  b[k1]:=i;//номер записываем в массив
 end;
if k1=0 then write('Ни в одном пункте нет опрошенных больше ',n1)
else
 begin
  writeln('Пункты где опрошенных больше ',n1);
  for i:=1 to k1 do
  write(b[i],' ');
 end;
readln
end.