Задача 3 урок 13.2

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

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

var N, M, i, j: integer;
begin
  writeln('Vvedite N > 0');
  readln(N);
  writeln('Vvedite M > 0');
  readln(M);

  for i:=1 to N do
    begin
      for j:=1 to M do
        begin
          if (i = 1) OR (i = N) then
            write('+ ')
          else if (j = 1) OR (j = M) then
            write('+ ')
          else
            write('- ');
        end;
      j :=1;
      writeln();
    end;

  readln();
end.