Дан массив из n x m элементов. Найти индексы первого наименьшего элемента массива — Pascal(Паскаль)

Program dmas_13;

uses crt;

const
  n = 3;
  m = 4;

Var
  a: array [1 .. n, 1 .. m] of integer;
  min, i, j, k, l: integer;

Begin
  randomize;
  For i := 1 to n do
  begin
    For j := 1 to m do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  min := a[1, 1];
  k := 1;
  l := 1;
  For i := 1 to n do
    For j := 1 to m do
      If min > a[i, j] then
      begin
        min := a[i, j];
        k := i;
        l := j;
      end;
  writeln(' Индексы первого наименьшего элемента =  ', k, ',', l);
  Readln;

End.