В двумерном массиве найти найменший элемент и найти сумму элементов столбца и суму элементов строки, в которых находиться этот элемент — Pascal(Паскаль)

uses
  Crt;
const
  N = 4;
  M = 4;
var
  a:array [1..N, 1..M] of integer;
  i,j,imin,jmin,sumR,sumC: integer;
begin
  ClrScr;
  imin := 1;
  jmin := 1;
  WriteLn('Исходная матрица:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := Random(8) - 4;
      if a[i,j] < a[imin, jmin] then
      begin
        imin := i;
        jmin := j
      end;
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
  sumC := 0;
  for i := 1 to N do
    Inc(sumC, a[i,jmin]);
  sumR := 0;
  for j := 1 to M do
    Inc(sumR, a[imin,j]);
  WriteLn('Минимум матрицы - a[',imin,',',jmin,'] = ',a[imin,jmin]);
  WriteLn('Сумма строки: ',sumR,' Сумма столбца: ',sumC);
  ReadLn
end.