Создать двумерный массив размером 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.