Найти минимальный элемент побочной диагонали квадратной матрицы

program test2;
uses crt;
const s=3;
var min:integer;
tmp,i,j:byte;
a:array[1..s,1..s] of integer;
begin
writeln('Введите элементы матрицы 3х3');
for i:=1 to s do
for j:=1 to s do
Read(A[i,j]);
for i:=1 to s do
begin
for j:=1 to s do
begin
write(a[i,j]:4);
end;
writeln;
end;
begin
min:=a[1,s];
for i:=1 to s do
  if a[i,s-i+1]<min then
    min:=a[i,s-i+1];
    tmp:=s-i+1;
end;
writeln('Минимальный элемент ', min,' ', 'в столбце ', tmp);
end.

begin
min:=a[1,s];
for i:=1 to s do
  if a[i,s-i+1]<min then
    min:=a[i,s-i+1];
end;
tmp:=s;
writeln('Минимальный элемент ', min,' ', 'в столбце ', tmp);
end.

min:=a[1,s];
tmp:=s;
for i:=2 to s do
  if a[i,s-i+1]<min then
    Begin
        min:=a[i,s-i+1];
        tmp:=s-i+1;
    End;
end;
writeln('Минимальный элемент ', min,' ', 'в столбце ', tmp)

program test2;
uses crt;
const
 s=3;
var
 min:integer;
 tmp,i,j:byte;
 a:array[1..s,1..s] of integer;
begin
 writeln('Введите элементы матрицы 3х3');
 for i:=1 to s do
  for j:=1 to s do
   Read(A[i,j]);
 Readln;
 ClrScr;
 for i:=1 to s do
  begin
   for j:=1 to s do
     write(a[i,j]:4);
   writeln;
  end;
 writeln;
 min:=a[1,s];
 tmp:=s;
 for i:=2 to s do
  if a[i,s-i+1]<min then
   begin
    min:=a[i,s-i+1];
    tmp:=s-i+1;
   end;
 writeln('Минимальный элемент ', min,'  в столбце ', tmp);
 readln;
end.