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

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

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

var i, m: integer;
  begin
    m:=1;
    while (m <= 10) do
      begin
        for i:=1 to 5 do
          write(i, ' ');
        writeln();
        m:=m+1;
      end;
  readln();
  end. 

КОНСОЛЬ:

1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5