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

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

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

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

var i, j: integer;
  z: boolean;
begin
  z := false;
  i := 1;
  j := 1;
  while i <= 5 do
    begin
      while j <= 6 do
       begin
        if z then write('+ ')
        else write('- ');
        j += 1;
       end;
      writeln();
      j := 1;
      z := not z;
      i += 1;
    end;
  readln();
end.