Написать программу в Паскале.

Ввести матрицу. Найти сумму s1 положительных элементов и сумму s2 отрицательных элементов над и под главной диагональю. Если s1>s2, то 1-ую и последнюю строки заменить на s1, иначе 1-ый и последний столбец на s2. Вывести матрицу на печать.

const     n = 3;    k = 3;var  i,j,s1,s2:integer;  a:array[1..n,1..k] of integer;begin  s1:=0;  s2:=0;for i:=1 to n do    for j:=1 to k do    begin     Writeln('Введите a[',i,',',j,']:');     readln(a[i,j]);     if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j];     if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j];    end;  if s1>s2 then   for j:=1 to k do    begin      a[1,j]:=s1;      a[n,j]:=s1;    end;  if s2>=s1 then    for i:=1 to n do    begin     a[i,1]:=s2;     a[i,k]:=s2;    end; writeln('Полученный массив:');  for i:=1 to n do   begin     for j:=1 to k do   write('a[':4,i,',',j,']=',a[i,j]);   writeln;   end;end.