Вывести прямоугольник из звездочек - Turbo Pascal

const
  n=10;
var
  i,j:integer;
begin
  for i:=1 to n do
    write('*');
  writeln;
  for j:=1 to 3 do
    begin
      write('*');
      for i:=2 to n-1 do
        write(' ');
      writeln('*');
    end;
  for i:=1 to n do
    write('*');
  writeln;
end.