Решение задачи №3 из главы 13.2.Программа, которая выводит на экран прямоугольный флаг N×M вида с рамкой по краям

Составьте программу, которая выводит на экран прямоугольный флаг 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.