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