Золото племени

Главный вождь племени Абба не умеет считать. В обмен на одну из его земель вождь другого племени предложил ему выбрать одну из трех куч с золотыми монетами. Но вождю племени Абба хочется получить наибольшее количество золотых монет. Помогите вождю сделать правильный выбор!
Входные данные
В первой строке входного файла INPUT.TXT записаны три натуральных числа через пробел. Каждое из чисел не превышает 10100. Числа записаны без ведущих нулей.
Выходные данные
В выходной файл OUTPUT.TXT нужно вывести одно целое число — максимальное количество монет, которые может взять вождь.


Примеры

№	INPUT.TXT	OUTPUT.TXT
1	5 7 3	7
2	987531 234 86364	987531
3	189285 283 4958439238923098349024	4958439238923098349024

Решение
var
st,ts,pr:string;
i:integer; f,f1:text;
begin
assign(f,'input.txt');
reset(f);
read(f,ts);
close(f);
assign(f1,'output.txt');
rewrite(f1);
st:='';
ts:=ts+' ';
for i:=1 to 3 do
begin
pr:=copy(ts,1,pos(' ',ts));
delete(ts,1,length(pr));
if length(pr)>length(st) then st:=pr;
if (length(pr)=length(st))and(pr>=st) then st:=pr;
end;
write(f1,st);
close(f1);
end.Вопросы, замечания, свои вариант решения пишите в комментариях.