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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - - 

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

  while(i<=N) do
    begin
      while(j<=M) do
        begin
          if (f) then
            write('- ')
          else
            write('+ ');
          j := j+1;
        end;
    writeln();
    i :=i+1;
    j :=1;
    f := (Not f)
    end;

  readln();
end.