создать двумерный массив размером NXM.Заполнить его произвольным обраом.найти разность первого и последнего элемента массива

const

  n = 5;  m = 5;var  a: array[1..n, 1..m] of integer;  i, j: integer;begin  for i := 1 to n do    for j := 1 to m do begin      a[i, j] := random(100);      write(a[i, j], ' ');      if(j mod m = 0) then writeln;    end;  writeln('Разность первого и последнего эл. массива: ', a[1, 1] - a[n, m]);end.