В двумерном массиве найти индекс максимального и минимального элемента

const 
m=4;v=4;
var
k, n: integer;
f, g, maxm,maxv,minm,minv: integer;
a: array[1..m, 1..v] of integer;
 
begin
writeln('Matrix:');
for k := 1 to m do
begin
for n := 1 to v do
begin
f := 12.4 * sin(abs(k / 2.1)) - 8.3 * cos(1.2 * k);
g := cos(n) / 2.7 + 9.1 * sin(1.2 * n + 1);
a[k, n] := n * f + sin(k) * g;
write(a[k, n]:8:3);
end;
writeln;
end;
 
begin
  randomize;
  
 for k := 1 to m do
  begin
    for n := 1 to v do
    begin
      a[m, v] := random(99) + 1;
      write(a[m, v]:4);
    end;
    writeln;
  end;
  writeln;
  
  maxm := 1; 
  maxv := 1;
  for k := 1 to m do
    for n := 1 to v do
      if a[m, v] > a[maxm, maxv] then
      begin
        maxm := m;
        maxv := v;
      end;
      writeln;
      minm:=1;
      minv:=1;
      for k:= 1 to m do
      for n:=1 to v do
      if a[m,v] <a[minm, minv] then
      begin
      minm:=m;
      minv:=v;
      writeln('minimum = ', a[m,minm]);
      writeln('row: ',minm, 'column :',minv);
      
writeln('Maximum = ', a[m, maxm]);
  writeln('Row: ', maxm, '  Column: ', maxv);
  readln;
end; 
end;
end.

f, g: real;
a: array[1..m, 1..v] of real;