Пусть дана действительная матрица размером NxM. требуется преобразовать матрицу следующим образом: поэлементно вычесть последнюю строку из всех строк, кроме последней — Pascal(Паскаль)

 5 5 7 8 6 8 5
 8 4 6 6 3 4 2
 8 0 9 2 3 4 7
 8 5 4 5 3 9 8
 0 3 0 6 0 3 8
 9 7 1 8 8 9 4
 7 8 4 5 7 6 1
 7 6 5 1 5 9 7
---------------------
 -2 -1 2 7 1 -1 -2
 1 -2 1 5 -2 -5 -5
 1 -6 4 1 -2 -5 0
 1 -1 -1 4 -2 0 1
 -7 -3 -5 5 -5 -6 1
 2 1 -4 7 3 0 -3
 0 2 -1 4 2 -3 -6
 7 6 5 1 5 9 7

program m1;
const n =8;
const m =7;
var
i,j:integer;
a: array[1..n,1..m] of integer;
begin

for i:=1 to n do
 for j:=1 to m do a[i,j]:=random(10);
 
 
for i:=1 to n do
begin
 for j:=1 to m do
    begin
        write(' ');
        write(a[i,j]);
    end;
writeln();
end;
writeln('---------------------');

 
for i:=1 to n-1 do
 for j:=1 to m do a[i,j]:=a[i,j]-a[n,j];


for i:=1 to n do
begin
 for j:=1 to m do
    begin
        write(' ');
        write(a[i,j]);
    end;
writeln();
end;
end.