Задача 7 Урок 14.1

Задача 7 Урок 14.1:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- для вывода очередной строки используйте процедуру.

var a,b:integer;

procedure podprog();
var a,b:integer;
begin
  a:=1;
  b:=10;
  repeat
    write('-');
    a+=1;
  until (a>b);
end;

begin
  a:=1;
  b:=4;
  repeat
    podprog();
    writeln();
    a+=1;
  until (a>b);
  readln();
end.  

Вывод консоли:

----------
----------
----------
----------