Двухмерные массивы

[Sexy girl*]

№1 Для элементов побочной диагонали, меньших нуля, найти сумму элементов строки, где этот элемент расположен.

№2 В матрице переставить в обратном порядке элементы тех столбцов, которые начинаются нулевыми элементами.

[IT-man]

{Для элементов побочной диагонали, меньших нуля, 
найти сумму элементов строки, где этот элемент расположен.}
 var
n:integer;
a:array[1..100,1..100] of integer;
i,j:integer;
s:integer;
begin
writeln('n=');
readln(n);
Randomize;
For i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do begin
s:=0;
if a[i,n-i+1]<0 then begin
 for j:=1 to n do
 s:=s+a[i,j];
Writeln('sum ',i,' row=',s );
end;
end;
readln;
end.

{В матрице переставить в обратном порядке элементы тех столбцов,
которые начинаются нулевыми элементами.}
var
n:integer;
a:array[1..100,1..100] of integer;
i,j:integer;
s:integer;
begin
writeln('n=');
readln(n);
Randomize;
For i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20)-10;
a[1,n-random(n)]:=0;
For i:=1 to n do begin
for j:=1 to n do
Write(a[i,j]:4);
writeln;end;
for j:=1 to n do
if a[1,j]=0 then
for i:=1 to (n div 2) do begin
s:=a[i,j];
a[i,j]:=a[n-i+1,j];
a[n-i+1,j]:=s;end;
Writeln('------------------------');
For i:=1 to n do begin
for j:=1 to n do
Write(a[i,j]:4);
writeln;end;
readln;
end.