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

http://fkn.ktu10.com/?q=node/8697
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1 N
1......N}M раз

var m, n, i,h: integer;
   begin
          writeln ('введите нужное число строк');
           readln (m);
           writeln ('введите число до которого выводить');
           readln (n);
     i:=1;
      while i<=m do
      begin
         h:=1;
         while h<=n do
          begin
           write (h,' ');
          h:=h+1;
          end;
       writeln();
      i:=i+1;
      end;
      end.