Вложенные циклы для вывода матриц

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

Задача 3

program pascal_matrica1;
var i , j ,n1 , n2 : integer;

begin
n1 := 5;
n2 := 8 ;
for i := 1 to n1 do
begin
   for j := 1 to n2 do
   begin
     if ( i = 1 ) or ( i = n1 ) then
        write( 'x' )
     else
     begin
       if ( j = 1 ) or ( j =  n2 ) then
          write( 'x' )
       else
          write( 'o' );
     end;
   end;
writeln();
end;
readln();
end.

Задача №2

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

Задача № 2

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