Решение задачи №2 из главы 13.2.Вывести на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках )

Задача №2

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

 
program pascal_matrica2;
var i , j ,row, column : integer;
begin
i := 1; //
row := 6;
column := 8;
while( i <= row ) do
begin
  j := 0;
  while( j <= column ) do
  begin
    if( i = 2 ) or ( i = (row - 1 ) ) then
    begin
      write( 'x' , ' ' );
      j+=1;
    end
    else
    begin
      write( 'o', ' ' );
      j+=1;
    end;
  end;
writeln();
i+=1;
end;
readln();
end.