Как в паскале указать диапазон чисел от 1 до 10 в степени 100

[Afroditaa]

Входные данные
В первой строке входного файла INPUT.TXT записаны три натуральных числа через пробел. Каждое из чисел не превышает 10^100.
Выходные данные
В выходной файл OUTPUT.TXT нужно вывести одно целое число — максимальное

Помогите пожалуйста с решением


var
A, B, C, i, max: integer;
begin
max:=0;
for i:=1 to 1000000 do
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite (output);
Readln(A, B, C);
if A > B then
max := A
else
max := B;
if C > max then
max := C;
writeln (output,max);
close(input);
close(output);
end;
end.

[BDA]

http://programmersforum.ru/showthread.php?t=215821
Пора учиться пользоваться поиском