Найти строки матрицы с наибольшей и наименьшей суммой элементов

uses
  crt;
const
  str=5;
  col=5;
var
  a:array [1..str,1..col] of integer;
  i,j,summ,max,min,imax,imin:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do//пробегаем массив по строкам
  begin
    summ:=0;//переменная для подсчета суммы каждой строки, перед каждой новой строкой её обнуляем
    for j:=1 to col do//пробегаем массив по столбцам
    begin
      a[i,j]:=random(8)-4;//присваиваем элементу случайное значение
      inc(summ,a[i,j]);//прибавляем его к временной сумме
      write(a[i,j]:2,' ')//выводим на экран матрицу
    end;
    if i=1 then//если строка первая то мы сразу присваиваем минимальной и максимальной её значение
    begin
      imax:=1;
      max:=summ;
      min:=summ;
      imin:=1
    end;
    if summ>max then//а дальше уже сраниваем если сумма строки больше максимального значения
    begin
      imax:=i;//то запоминаем номер строки
      max:=summ//и запоминаем саму сумму
    end;
    if summ<min then//тут тоже самое как и в предыдущем случае
    begin
      imin:=i;//запоминаем номер
      min:=summ//запоминаем сумму
    end;
    writeln
  end;
  {выводим результаты}
  write(imax,' строка это строка с наибольшей суммой. Сумма: ',max,'. Строка [ ');
  for j:=1 to col do
    write(a[imax,j],' ');
  writeln(']');
  write(imin,' строка это строка с наименьшей суммой. Сумма: ',min,'. Строка [ ');
  for j:=1 to col do
    write(a[imin,j],' ');
  writeln(']');
end.