Дано число n.. Из чисел 1, 4, 9, 16, 25, … напечатать те, которые не превышают n — Pascal(Паскаль)

uses crt;
var n:real;
     i:word;
begin
 clrscr;
 writeln('Введите n');
 readln(n);
 i:=1;
 while sqr(i)<n do
 begin
  write(sqr(i),' ');
  inc(i);
 end;
 readln;
end.

USES crt;
 
CONST
  Size = 10;
VAR
  X: array[1..Size] of Integer=(1,4,9,16,25,49,60,75,86,99);
  n,i: Integer;
BEGIN
 
  clrscr;
  Write('Vvedite n -> ');Readln(n);
  For i:=1 to Size do
    Begin
      If n >= X[i] Then Write(X[i],' ');
    End;
 
  Readln;
 
END.