Откорректировать код нахождения суммы элементов двух заданных столбцов массива

var
   n,m,i,j,p,k1,k2,s:integer;
   a:array[1..100,1..100] of integer;
begin
     writeln('Ввод количества столбцов массива  ');
     read(n);
          writeln('Ввод количества строк массива: ');
          read(m);
 i:=1;  {счетчик строк}
 j:=1;  {счетчик столбцов}
 while (i<=n) and (j<=m) do
  begin
   a[i,j]:=i*j;
   inc(j);
   if (j=m+1) then
    begin
     j:=1;
     inc(i);
    end;
  end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]:4);
  writeln;
    end;
  begin
    write('Введите номер 1-ой строки от 1 до ',n, ': ');
    readln(k1);
        write('Введите номер 2-ой строки от 1 до ',n, ': ');
    readln(k2);
    s:=0;
    for i:=1 to m do;
      s:=s+(a[k1,j]*a[k2,j]);
      if a[i,j]<>0 then;
      write('Произведение ненулевых элементов',s);
      end;
end.

var  a:array[1..10,1..10] of integer;  //зачем же 100х100 да еще при вводе с клавиатуры?
     n,m,i,j,p,k1,k2,s:integer;
begin
repeat
writeln('Введите размеры матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы матрицы целые числа');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введенная матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
repeat
writeln('Введите номера двух столбцов 1<=k1,k2<=n k1<>k2');
readln(k1,k2);
until(k1 in [1..n])and(k2 in [1..n])and(k1<>k2);
s:=0;
for i:=1 to m do
s:=s+a[i,k1]+a[i,k2];
write('Сумма элементов столбцов ',k1,' и ',k2,' = ',s);
end.

var  a:array[1..10,1..10] of integer;  //зачем же 100х100 да еще при вводе с клавиатуры?
     n,m,i,j,k1,k2,p:integer;
begin
repeat
writeln('Введите размеры матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы матрицы целые числа');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введенная матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
repeat
writeln('Введите номера двух строк 1<=k1,k2<=n k1<>k2');
readln(k1,k2);
until(k1 in [1..n])and(k2 in [1..n])and(k1<>k2);
p:=1;
for i:=1 to m do
for j:=1 to n do
if(i in [k1,k2])and(a[i,j]<>0)then p:=p*a[i,j];
write('Произведение ненулевых элементов строк ',k1,' и ',k2,' = ',p);
end.

.............................
p:=1;
k:=0;
for i:=1 to m do
for j:=1 to n do
if(i in [k1,k2])and(a[i,j]<>0)then
 begin
  k:=1;
  p:=p*a[i,j];
 end;
if k=0 then p:=0;
....................................