Произвести заданные действия с матрицей

const n = 5;
var a: array[1..n, 1..n] of integer;
    k, i, j: byte;
    s, sg, sp: integer;
begin
  randomize;
  s := 0; sg := 0; sp := 0;
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := random(101) - 50;
      write(a[i, j]:4);
      if i = j then sg := sg + a[i, j];
      if i = n - j + 1 then sp := sp + a[i, j];
    end;
    writeln;
  end;
  write('K = '); readln(k);
  for j := 1 to n do s := s + a[k, j];
  writeln('Summa ', k, ' stroky: ', s);
  writeln('Summa glavnoy diagonaly: ', sg);
  writeln('Summa pobochnoy diagonaly: ', sp);
end.

program prog;
const n=5;
  var a:array [1..n,1..n] of integer;
      i,j,k,sum:integer;
begin
  randomize;
  for i:=1 to n do 
    begin
      for j:=1 to n do begin a[i,j]:=random(100);write(a[i,j]:3);end;
      writeln; //переход на новую строку
    end;
   write('введите номер строки ');readln(k); 
   sum:=0;
   for j:=1 to n do sum:=sum+a[k,j];
   writeln('сумма равна ',sum);
   sum:=0;
   for j:=1 to n do sum:=sum+a[j,j];
   writeln('сумма главной диагонали ',sum);
   sum:=0;
   for j:=1 to n do sum:=sum+a[n-j+1,j];
   writeln('сумма побочной диагонали ',sum);    
end.