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

program tmp;
uses crt;
const count=100;
var
   i,j,n,m:integer;
   mas:array[1..count,1..count] of integer;
begin
clrscr;
readln(n,m);
write('ishod mas: ');writeln;
for i:=1 to n do begin
    for j:=1 to m do begin
                     mas[i,j]:=random(50);
                     write(mas[i,j]:4);
                     end;
                 writeln;
                 end;
writeln;
for i:=1 to n-1 do
    for j:=1 to m do mas[i,j]:=mas[i,j]-mas[n,j];
write('poluch mas:'); writeln;
for i:=1 to n do begin
    for j:=1 to m do write(mas[i,j]:4);
                 writeln;
                 end;
readkey;
end.