Сформировать двумерный массив с числом строк 8-12 и числом столбцов 6-10.

var a:array[1..12,1..10] of integer;
    m,n,i,j,s,mn,mx,imn,imx:integer;
begin
repeat
write('Введите количество строк от 8 до 12 m=');
readln(m);
until m in [8..12];
repeat
write('Введите количество столбцов от 6 до 10 n=');
readln(n);
until n in [6..10];
randomize;
//пусть N=6 n=20
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(26);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  if i=1 then
   begin
    imn:=1;
    imx:=1;
    mx:=s;
    mn:=s;
   end
  else
   begin
    if s<mn then
     begin
      mn:=s;
      imn:=i;
     end
    else if s>mx then
     begin
      mx:=s;
      imx:=i;
     end;
   end;
  end;
 writeln('Строка с наибольшей суммой ',imx);
 for i:=1 to n do
 write(a[imx,i]:3);
 writeln('  Сумма=',mx);
 writeln('Строка с наименьшей суммой ',imn);
 for i:=1 to n do
 write(a[imn,i]:3);
 writeln('  Сумма=',mn);
 end.