Помогите пожалуйста с двумя программами, на дельфи или на паскале очень нужно, буду очень благодарен. Дана квадратная матрица порядка M. Найти суммы элементов ее диагоналей, параллельных главной (начиная с одноэлементной диагонали A[1,M]).. Дана матрица размера 5 * 10. Удалить строку, содержащую максимальный элемент матрицы.

Uses crt;
var n,i,j,l,sum,min:integer;
a:array[1..20,1..20]of integer;
begin
clrscr;
write(n=);
readln(n);
randomize;
Writeln(Ishodnaja matrica:);
for i:=1 to n dobegin
for j:=1 to n dobegin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
For l:=1 to 2*n-1 do
begin
sum:=0;
if lbegin
for i:=1 to l do
for j:=1 to l do
if j=l-i+1 then sum:=sum+a[i,j];
if sum end
else if l>n then
begin
for i:=l-n+1 to n do
for j:=l-n+1 to n do
if j=l-i+1 then sum:=sum+a[i,j];
if sumend;
writeln(Summa diagonali ,l, = ,sum);
end;
writeln;
readln
end.