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

program kkk;
uses crt;
const n=10;
var m:array[1..n,1..n]of integer;
     i,j:integer;
 
begin
 for i:=1 to n do
 for j:=1 to n do m[i,j]:=0;
 clrscr;
 for i:=1 to n do
 for j:=1 to n-i+1 do m[i,j]:=i;
 
 
 for i:=1 to n do
 begin
  for j:=1 to n do write(m[i,j],' ');
  writeln;
 end;
 readln;
end