Паскаль. Помощь в написании программы на матрицы.

[Aslan009]

Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех строках, которые не содержат отрицателдьных элементов (оформить в виде функции);
2) минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы (оформить в виде процедуры).

[Alex21]

Без вашего участия просто никак.
Что сами сделали? Что не получилось?

[Abbatik]

функция

function sum(a:array[1..n,1..n] of integer):integer;
{функция возвращает  сумму элементов в тех строках, которые не содержат отрицателдьных элементов}
var k,i,j,s,d:integer;
begin
s:=0;
for i:=1 to n do begin
k:=0;
d:=0;
for j:=1 to n do begin
if a[i,j]>=0 then k:=k+1;
d:=d+a[i,j];
end;
if k=n then s:=s+d;
end;
sum:=s;
end;

процедура:

procedure minim(a:array[1..n,1..n] of integer; var min:integer);
var d:array[1..2*n] of integer;
k,m,i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
for k:=(-1*(n-1)) to n-1 do begin
if i+k=j then d[k+n]:=d[k+n]+a[i,j];
end;
end;
end;
m:=d[1];
for i:=1 to 2*n-1 do 
if m>d[i] then m:=d[i];
min:=m;
end;

.....
begin
....
minim(a,k);
{а-имя матрицы, k-полученный минимум}
....
end.