найти число из диапазона от m до n включительно (M, N от 1 до 10000), десятичная запись квадрата которого содержит максимальное число троек.Если искомых чисел несколько, выдать максимальное и минимальное- Pascal(Паскаль)

var
k,a,max:integer;
m,n,t,i:longint;
begin
writeln('vvedite nachalo intervala');
readln(m);
writeln('vvedite konec intervala');
readln(n);
max:=0;
for i:=m to n do
begin
t:=i*i;
k:=0;
repeat
a:=t mod 10;
if a=3 then inc(k);
if k>max then max:=k;
t:=t div 10;
until t=0;
end;
for i:=m to n do
begin
t:=i*i;
repeat
a:=t mod 10;
if a=3 then inc(k);
t:=t div 10;
until t=0;
if k=max then write(i:4);
end;
readln;
end.