Дана матрица размером NxM. Вывести разницу между максимальным и минимальным компонентами и саму матрицу.N и M не превышают 30 — Pascal(Паскаль)

var
 a:array[1..30,1..30]of integer;
 n,m,mn,mx,i,j:integer;
begin
 write('Введите n и m');
 readln(n,m);
 randomize;
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(40)-20;
   write(a[i,j]:4);
   if (i=1) and (j=1) then begin
    mn:=a[i,j];
    mx:=a[i,j];
   end;
   if a[i,j]>mx then mx:=a[i,j];
   if a[i,j]<mn then mn:=a[i,j];
  end;
  writeln;
 end;
 writeln(mx-mn);
 readln;
end.