Вычислить суммы максимальных и минимальных элементов каждой строки матрицы

uses crt;
function SafeReadByte(low, high:integer): byte;
    var IOR, res: integer;
begin
  repeat
  {$I-}{$R-}
  readln(res);
  {$I+}{$R+}
  IOR:=IOResult;
  If (IOR<>0) or (res<low) or (res>high) then
    writeln('Error. Write Again');
  Until (IOR=0) and (res>=low) and (res<high);
  SafeReadByte:=res;
end;
 
procedure mywindow(x1,y1,whidh,height,tc,fc:integer);
begin
  window(x1,y1,x1+whidh-1,y1+height-1);
  textcolor(tc);
  textbackground(fc);
  clrscr;
end;
 
var rows, cols: byte;
    i, j, m, n, sum, min, max: integer;
    a:array[1..8,1..16] of integer;
begin
  clrscr;
  writeln('Введите количество столбцов');
  rows:=SafeReadByte(1, 8);
  writeln('Введите количество строк');
  cols:=SafeReadByte(1, 16);
  clrscr;
  textcolor(red);
  write('+');
  for i:=1 to cols do
    write('---+');
    writeln;
    for i:=1 to rows do begin
      write('|');
      for j:=1 to cols do
        write('   |');
    writeln;
    write('+');
    for j:=1 to cols do
      write('---+');
      writeln;
    end;
 
  j:=2;
  repeat
    i:=2;
    repeat
      mywindow(i, j, 3, 1, red, white);
      read(a[rows,cols]);
      i:=i+4;
    until i>cols*4+1;
    j:=j+2;
  until j>rows*2;
  readln;
 
  write('+');
    for i:=1 to 1 do
      write('---+');
    writeln;
      for i:=1 to rows do begin
        write('|');
        for j:=1 to 1 do
          write('   |');
        writeln;
        write('+');
        for j:=1 to 1 do
      write('---+');
      end;
 
  min:=a[1,1];
  max:=a[1,1];
  for m:=1 to rows do begin
    for n:=1 to cols do begin
      if a[m,n]<min then min:=a[m,n];
      if a[m,n]>max then max:=a[m,n];
      sum:=min+max;
      mywindow(2, 2*rows+3, 3, 1, red, white);
      writeln(sum);
    end;
  end;
  readln;
end.

uses crt;
{============================================================================}
procedure PaintMatrix(xc,xr,x1,y1:integer);
var i,j:integer;
begin
   textcolor(yellow);
   window(x1,y1,x1+xc*4,y1+xr*3);
 
   write(#201);
   for i:=1 to (xc-1) do
     write(#205,#205, #205,#203);
   write(#205, #205, #205, #187);
   for i:=1 to (xr-1) do begin
     write(#186);
     for j:=1 to xc do
       write('   ', #186);
     write(#204);
     for j:=1 to (xc-1) do
        write(#205, #205, #205, #206);
     write(#205, #205, #205, #185);
   end;
   write(#186);
   for j:=1 to xc do
     write('   ', #186);
   write(#200);
     for j:=1 to (xc-1) do
       write(#205, #205, #205, #202);
     write(#205, #205, #205, #188);
   textcolor(white);
end;
{============================================================================}
function SafeReadByte(low,high:integer):integer;
var IOR,res:integer;
begin
  repeat
    {$I-}{$R-}
    readln(res);
    {$I+}{$R+}
    IOR:=IOResult;
    If (IOR<>0)or(res<low)or(res>high) then begin
      clrscr;
      write('                        Error! Try again: ');
    end;
   until (IOR=0) and (res>=low) and (res<=high);
   SafeReadByte:=res;
  end;
{============================================================================}
 
function SafeReadByte2(low,high:integer):integer;
var IOR,res:integer;
begin
   repeat
     clrscr;
     {$I-}{$R-}
     readln(res);
     {$I+}{$R+}
     IOR:=IOResult;
   until (IOR=0) and (res>=low) and (res<=high);
   SafeReadByte2:=res;
end;
 
{============================================================================}
 
var rows, cols: byte;
    i, j, m, n, min, max:integer;
    a:array[1..8, 1..16] of integer;
    b:array[1..8] of integer;
 
{start=======================================================================}
begin
   textcolor(white);
   clrscr;
   window(1,1,80,1);
   write('                   Введите количество строк (от 1 до 8): ');
   rows:=SafeReadByte(1,8);
   clrscr;
   write('                  Введите количество столбцов (от 1 до 16): ');
   cols:=SafeReadByte(1,16);
   clrscr;
   textcolor(lightgray);
   Write('                        Введите числа от -99 до 999:');
   PaintMatrix(cols,rows,2,2);
 
   for i:=1 to rows do
     for j:=1 to cols do begin
       window(4*j-1,2*i+1,4*j+1,2*i+1);
       a[i,j]:=SafeReadByte2(-99,999);
     end;
 
   PaintMatrix(1,rows,3+cols*4,2);
 
   for i:=1 to rows do begin
     max:=a[i,1];
     min:=a[i,1];
     for j:=2 to cols do begin
       if a[i,j]>max then
         max:=a[i,j];
       if a[i,j]<min then
         min:=a[i,j];
     end;
     b[i]:=min+max;
   end;
 
   for i:=1 to rows do begin
     window(cols*4+5,2*i+1,cols*4+7,2*i+1);
     write(b[i]);
   end;
   readln;
end.