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

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

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

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

var i, j: integer;
begin
  i := 1;
  j := 1;
  repeat
   repeat
    write('- ');
    j += 1;
   until j > 6;
   writeln();
   j := 1;
   i += 1;
  until i > 4;
  readln();
end.