Найти минимальный элемент для каждой диагонали параллельной главной

program matrica;
uses crt;
var n,i,j,l,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 do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
for l:=2*n-1 downto 1 do
  begin
    min:=maxint;
    if l<=n then{esli ne nuzno glavnuyu l<n}
      begin
       for i:=n-l+1 to n do
       for j:=1 to l do
       if (j=i-n+l)and(a[i,j]<min) then min:=a[i,j];
      end
    else if l>n then
      begin
       for i:=1 to 2*n-l do
       for j:=l-n+1 to n do
       if (j=i+l-n)and(a[i,j]<min) then min:=a[i,j];
      end;
    writeln('Min na dyaginali ',2*n-l,' = ',min);
  end;
readln
end.

uses crt;
const max=20;
var x:array[1..max,1..max]of integer;
    m,n,i,j,k,t:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',max,' m=');
readln(m);
until m in [1..max];
repeat
write('Количество столбцов от 1 до ',max,' n=');
readln(n);
until n in [1..max];
Writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=random(50)+10;
    write(x[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Вставка единиц:');
repeat
write('Введите число от 1 до ',n,' k=');
readln(k);
until k in [1..n];
for i:=1 to m do
 begin
  for j:=n+1 downto k+2 do
  x[i,j]:=x[i,j-1];
  x[i,k+1]:=1;
 end;
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  write(x[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
const n=5;
var m:array[1..n,1..n]of integer;
i,j:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   m[i,j]:=random(100);
   write(m[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 for j:=n-i+1 to n do m[i,j]:=0;
 
 writeln('Преобразованная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do
   write(m[i,j]:3);
  writeln;
 end;
 readln;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to m do
for j:=m-i+1 to m do
a[i,j]:=0;
writeln('Измененная матрица:');
for i:=1 to m do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
readln
end.