Составить вектора компонентами которых являются суммы максимального и минимального элемента строк матрицы

Var
  a: Array [1..5,1..3] of Integer;
  b: Array [1..5] of Integer;
  i,j: Byte;
  min: Integer;
BEGIN
Writeln('Матрица A:');
For i:=1 to 5 do
begin
  min:=MaxInt;
  For j:=1 to 3 do
  begin
    a[i,j]:=Random(20)-5;
    Write(a[i,j]:4);
    If a[i,j]<min Then
    min:=a[i,j];
  end;
  b[i]:=min;
  Writeln
end;
Writeln;
Writeln('Вектор В:');
For i:=1 to 5 do
Write(b[i],' ');
writeln;
end.

const m=5; n=3;
var
  a: array [1..m,1..n] of Integer;
  b: array [1..m] of Integer;
  i, j, mn, mx: Integer;
begin
  WriteLn('A =');
  for i:=1 to m do begin
    mn:=MaxInt; mx:=-MaxInt-1;
    for j:=1 to n do begin
      a[i,j]:=-5+Random(20);
      Write(a[i,j]:4);
      if mn>a[i,j] then mn:=a[i,j];
      if mx<a[i,j] then mx:=a[i,j];
    end; WriteLn;
    b[i]:=mn+mx;
  end;
  WriteLn('В =');
  for i:=1 to m do Write(' ',b[i]); WriteLn;
end.

uses crt;
Type
 a=array [1..10,1..10] of integer;
 var m:a; b,c:byte;
var i, j: integer;
begin
Randomize;
repeat
writeln('Введите размеры матрицы от 1 до 10:');
read(b,c);
until(b in [1..10])and(c in [1..10]);
for i:=1 to b do
    for j:=1 to c do
 m[i,j]:=random(20)-5;
begin
     for i:=1 to b do
         begin
              for j:=1 to c do
              write (m[i,j]:3);
              writeln
         end;
         end;
         end.

uses crt;
type
 matrix = array [1..8,1..8] of real;
 vector = array [1..8] of real;
var
 a: matrix;
 c:matrix;
 x: vector;
 min,max,b: real;
 m,n,i,j,k: byte;
Begin
 Repeat
 clrscr;
  Write('Введите пункт меню: ');
 writeln('Выберите способ ввода массива: ');             //меню пользователя
 writeln('1 - ввод с клавиатуры');
 writeln('2 - заполнение случайными числами');
 writeln('0 - выход');
 readln(k);
 if k in [1,2] then
 begin
  repeat
   write('Введите число строк M и столбцов N [2,8]: ');
   readln(M,N);
   if (M<2) or (M>8) or (N<2) or (N>9) then
   writeln('Число элементов введено неверно!');
  until (M>=2) and (M<=8) and (N>=2) and (N<=8);
 writeln;
 writeln('В массиве ',M,':',N,' элементов(а).');
 writeln;
 case k of
  1: begin                                             //ручной ввод
       for i:=1 to M do
        for j:=1 to N do
         begin
          write('Введите элемент А[',i,',',j,']=');
          readln(A[i,j]);
          
         end;
     end;
  2: begin                                            //заполнение сл.числами
       Randomize;
       for i:=1 to M do
        for j:=1 to N do         
          A[i,j]:=Random(20)-5
          
     end;
 end;
 
 writeln('Введенный массив A:');                     //сформированный массив A
 writeln;
 for i:=1 to M do
 begin
  for j:=1 to N do
   write(A[i,j]:9);
   writeln;
 end;
 writeln;
 end else
 if k<>0 then writeln('Неверный пункт меню!');
 readln;
 until k=0;
end.