Найти наименьший элемент среди элементов, расположенных на побочной диагонали матрицы

program prog;
const N = 10;
var C: array [1..N, 1..N] of integer;
    minpd: integer;
    i,j: byte;
begin
for i:=1 to N do
 for j:=1 to N do C[i,j]:=random(500);
writeln('Матрица: ');
for i:=1 to N do
begin
 for j:=1 to N do write(C[i,j]:4);
 writeln;
end;
 
{writeln('Побочная диагональ: ');
for i:=1 to N do write(C[i,N-i+1]:4);
writeln;}
 
minpd:=C[1,N];
 for i:=2 to N do
  if C[i, N-i+1]<minpd then minpd:=C[i, N-i+1];
writeln('Наименьший элемент = ', minpd);
readln;
end.

uses crt;
var
   c:array[1..100,1..100] of integer;
   i,j,n,l,min:integer;
   a:array[1..100] of integer;
begin
   writeln('размер массива');
   readln(n);
   for i:=1 to n do
      for j:=1 to n do
      begin
         c[j,i]:=random(50)+1;
         if c[j,i]<10 then
            write(' ');
         write(c[j,i],' ');
         if j mod n = 0 then
            writeln;
      end;
   for i:=1 to n do
      for j:=1 to n do
         if (j+i=n+1) then
         begin
            inc(l);
            a[l]:=c[j,i];
         end;
         min:=a[1];
         for i:=1 to l do
            if min>a[i] then
            min:=a[i];
   writeln;
   writeln(min);
     end.