Урок 13,2 задача 3

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

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

Урок 13,2 задача 3

program project1;
var n,L,i,j:integer;
begin
  n:=4; //количество строк
  L:=6; //количество ячеек(столбов)
    for i:= 1 to n do
    begin
       for j:= 1 to L do
       begin
           if  (i = 1) or (i = n) or
               (j = 1)or (j = L)then
               write(' + ')
           else
               write(' - ');
       end;
       writeln();
    end;
    readln();
end.