Постройте квадрат со стороной 10 из точек,используя оператор for

var  i, j: integer; begin  for i := 1 to 10 do  begin    for j := 1 to 10 do      if not ((j > 1) and (j < 10) and (i > 1) and (i < 10)) then        Write('.')      else        write(' ');    writeln;  end;   end.