Дана целочисленная квадратная матрица m[n][n].вывести ее под диагональные элементы, не включая диагональ в виде столбцов слева-направо снизу-вверх

Программа на паскале, я так понял?

const n=5;
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 read(m[i,j]);
for i:=2 to n do begin for j:=1 to i-1 do write(m[i,j],' '); writeln; end
end.