Как на паскале сравнить два числа n,m< =10^10000; вход: n,m< =10^10000; выход: наибольшее число;

Var n,m:real;
Begin
readln(n,m);
if n<m then
writeln(m)
else if n=m then
writeln('Числа равны')
else
writeln(n);
end.