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

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

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

var N, M, i, j: integer;
begin
  i :=1;
  j :=1;
  writeln('Vvedite N > 0');
  readln(N);
  writeln('Vvedite M > 0');
  readln(M);

  repeat
    repeat
      write('- ');
      j := j+1;
    until(j > M);
    writeln();
    i :=i+1;
    j :=1;
  until(i > N);

  readln();
end.