Матрица, подпрограммы. сформировать одномерный массив В, состоящий из элементов побочной диагонали матрицы А

program L6;
uses crt;
var a:array [1..5,1..5] of integer;
    b:array [1..5] of integer;
   max,min,i,j:integer;
begin
clrscr;
 randomize;                   {vvod a}
   for i:=1 to 5 do
   for j:=1 to 5 do
   a[i,j]:=random(10);
 
   writeln('vivod a');
   for i:=1 to 5 do begin      {vivod a}
   for j:=1 to 5 do
   write(a[i,j]:3);
   writeln;
   end;
 
   writeln;
                   writeln('elementi glavnoy diagonali a');
   for i:=1 to 5 do begin
   for j:=1 to 5 do
   if 6-i=j then
   b[i]:=a[i,j];
   writeln('b[i]:=',b[i]);
   end;
 
   writeln;
                     writeln('vivod b');
   for i:=1 to 5 do
   write(b[i]:3);
   writeln;
 
   writeln;
                      writeln('max i min elementi b');
   max:=b[1];
   for i:=1 to 5 do
   if max<b[i] then
   max:=b[i];
   writeln('max:=',max);
   min:=b[1];
   for i:=1 to 5 do
   if min>b[i] then
   min:=b[i];
   writeln('min:=',min);
 
   writeln;
                    writeln('menyaem mestami max i min elementi');
   for i:=1 to 5 do
   for j:=i to 5 do
   if max>min then begin
   b[i]:=max;
   max:=min;
   min:=b[i];
 
   writeln;
   writeln('vivod b posle sortirovki');
 
   end;
   readln;
   end.

uses crt;
var a:array[1..5,1..5] of integer;
    b:array[1..5] of integer;
min,j,i,max,n,m:integer;
begin
clrscr; randomize;
writeln('Matrica A');
for i:=1 to 5 do
 begin
 for j:=1 to 5 do
  begin
  a[i,j]:=random(100)-50;
  write(a[i,j]:4);
  if i=6-j then
  b[i]:=a[i,j];
  end;
 writeln;
 end;
writeln; writeln('Matrica B');
for i:=1 to 5 do
write(b[i]:4);
writeln;
max:=-maxint; min:=maxint;
for i:=1 to 5 do
 begin
 if b[i]>max then
  begin
  max:=b[i];
  n:=i;
  end;
 if b[i]<min then
  begin
  min:=b[i];
  m:=i;
  end;
 end;
Writeln('max=',b[n]:4,' min=',b[m]:4);
j:=b[n]; b[n]:=b[m]; b[m]:=j;
Writeln('New matrica B');
for i:=1 to 5 do
write(b[i]:4);
readkey;
end.

uses crt;
var a:array [1..5,1..5] of integer;
    b:array [1..5] of integer;
   max,min,i,j:integer;
begin
clrscr;
 randomize;                   
   for i:=1 to 5 do
   for j:=1 to 5 do
   a[i,j]:=random(10);
   writeln('vivod a');
   for i:=1 to 5 do begin      
   for j:=1 to 5 do
   write(a[i,j]:3);
   writeln;
   end;
   writeln;
   writeln;
   for i:=1 to 5 do begin
   for j:=1 to 5 do
   if 6-i=j then
   b[i]:=a[i,j];
   writeln('b[i]:=',b[i]);
   end;
   writeln;
    writeln('vivod b');
   for i:=1 to 5 do
   write(b[i]:3);
   writeln;
   writeln;
    writeln('max i min elementi b');
   max:=b[1];
   for i:=1 to 5 do
   if max<b[i] then
   max:=b[i];
   writeln('max:=',max);
   min:=b[1];
   for i:=1 to 5 do
   if min>b[i] then
   min:=b[i];
   writeln('min:=',min);
   writeln;
    writeln;
   for i:=1 to 5 do
   for j:=i to 5 do
   if max>min then begin
   b[i]:=max;
   max:=min;
   min:=b[i];
   writeln;
  for i:=1 to 5 do
   write(b[i]:3)
   writeln;
   end;
   readln;
   end.

uses crt;
const n=5;
type matr=array [1..n,1..n] of integer;
     mas=array [1..n] of integer;
procedure Matrix(var a:matr);
var i,j:byte;
begin
writeln('Матрица А:');
 for i:=1 to n do
  begin
   for j:=1 to 5 do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
    end;
   writeln;
  end;
writeln;
end;
procedure Massiv(a:matr;var b:mas);
var i:byte;
begin
for i:=1 to n do
b[i]:=a[i,n-i+1];
writeln('Исходный массив В:');
for i:=1 to n do
write(b[i]:3);
writeln;
writeln;
end;
procedure Obmen(var b:mas);
var i,imx,imn:byte;
    x:integer;
begin
imx:=1;imn:=1;
for i:=1 to n do
if b[i]>b[imx] then imx:=i
else if b[i]<b[imn] then imn:=i;
writeln('Максимальный элемент b[',imx,']=',b[imx]);
writeln('Минимальный элемент  b[',imn,']=',b[imn]);
x:=b[imx]; b[imx]:=b[imn]; b[imn]:=x;
writeln('Обмен минимального и максимального элементов:');
for i:=1 to n do
write(b[i]:3);
end;
var a:matr;
    b:mas;
begin
clrscr;
randomize;
Matrix(a);
Massiv(a,b);
Obmen(b);
readln;
end.