Прошу помочь мне с решением задачи?

задача звучит следующим образом: без хранения найти два минимальных числа, сумма квадратов которых >500. фрагмент моей программы на паскале :

for i:=1 to n do begin 
 readln (f, a);
 if (a<min1) then begin min2:=min1; min1:=a; end;
 if (a>min1) and (a<min2) then min2:=a;
 end;

как можно проверить на квадраты? сама сообразить не могу. желательно описать алгоритм на паскале либо просто объяснить суть словами. благодарю заранее.