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

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of shortint; j,i: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(19)-9;
Write(a[i,j]:3);
end;
Writeln;
end;
Writeln('Результат: ');
For i:=1 to n-1 do
begin
For j:=1 to n do
begin
a[i,j]:=a[i,j]-a[n,j];
Write(a[i,j]:3);
end;
Writeln;
end;
End.