Написать цикл на паскале, который составляет матрицы(размеры- n рядков, m-столбцов) заполненные сверху вниз числами от 1 до n*m (пример): 1 4 7 2 5 8 3 6 9

Var n,m,i,j,k:integer;

begin
read(n,m);
for i:=1 to n do
 begin
 k:=i;
 writeln;
 for j:=1 to m do
   begin
   write(k,' ');
   k:=k+n;
   end;
 end;
end.