Задача 9 Урок 13.1

Задача 9 Урок 13.1:

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
11......NN}M раз$\begin{array}{}\end{array}$

var i, j, N, M: integer;
begin
   writeln('Введите целое число N:');
   readln(N);
   writeln('Введите целое число M:');
   readln(M);
   for j := 1 to M do
    begin
     for i := 1 to N do
      write(i, ' ');
     writeln();
     i := 1;
     while i <= N do
      begin
       write(i, ' ');
       i += 1;
      end;
     writeln();
    end;
   writeln();
   readln();
end.