Задача 1 Урок 13.2

Задача 1 Урок 13.2:

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

var m, a, b,m2: integer;
begin
  a:=1;
  m := 10; 
  m2:=4;
  repeat
    b:=1;
    repeat
      write('-');
      b+=1;
    until (b>m);
    writeln();
    a+=1;
  until (a>m2);
  readln();
end.  

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

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