Найти все четырехзначные числа являющиеся точными квадратами у которых две цифры одинаковы и две последние тоже одинаковы — Pascal(Паскаль)

uses crt;
var i:word;
begin
clrscr;
writeln('4-значные числа, полные квадраты, 2 первые и 2 последние цифры равны:');
for i:=1100 to 9999 do
if (frac(sqrt(i))=0)and(i div 1000=i div 100 mod 10)and(i div 10 mod 10=i mod 10)
then writeln(i);
readln
end.

procedure FindNumbers;
var
  I, J: integer;
  FullNumber: integer;
begin
  ClrScr;
  WriteLn('4-значные числа, полные квадраты, 2 первые и 2 последние цифры равны:');
  for I:= 1 to 9 do
    for J:= 1 to 9 do begin
      FullNumber := I+10*I+100*J+1000*J;
      if Frac(Sqrt(FullNumber))=0 then
        WriteLn(FullNumber);
    end;
  ReadLn;
end;