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

http://fkn.ktu10.com/?q=node/8714
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

var m,n, i, j: integer;
begin
 m := 15;
 n:= 10;
 i:=1;
 repeat
 writeln();
  j:=1;
 repeat
 write ('- ');
 j:=j+1;
 until (j>m);
 i:=i+1;
 until (i>n);
  readln();
end.