как выяснить, входит ли цифра в запись числа?

[boltik]

ситуация такова:
нужно в самые кратчайшие сроки решить протецкую задачку.
есть только в паскале, но мне нужен делфи. прошу стого не судить, тк в делфи совсем не ориентируюсь(

вот сама задачка: дано натуральное число n. выяснить, входит ли цифра 3 в запись числа n^2. число вводится из программы( через диалоговый интерфейс)

она же в паскале:
function F(n:integer):boolean;
var
temp:integer;
begin
temp:=n;
while temp <> 0 do
begin
if temp mod 10 = 3 then
begin
F:=true;
exit
end;
temp:=temp div 10
end;
F:=false
end;
var
n:integer;
begin
ReadLn(n);
if F(sqr(n)) then
WriteLn('1')
else
WriteLn('0');
ReadLn
end.

нужно содержание файлика .dpr

[ZaRDaK]

За правильность не отвечаю, переделано из исходного кода выше.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i : integer;

function F(n:integer):boolean;
var
temp:integer;
begin
temp:=n;
while temp <> 0 do
begin
if temp mod 10 = 3 then
begin
F:=true;
exit;
end;
temp:=temp div 10
end;
F:=false
end;

begin
Write('Vvedite chislo: ');
ReadLn(I);
if F(sqr(i)) then WriteLn('Cyfra 3 vxodit v zapis chisla n^2')
else WriteLn('Cyfra 3 ne vxodit v zapis chisla n^2');
ReadLn;
end.

[boltik]

благодарю!