Составить программу вывода самой большой цифры сверхбольшого числа,заданного как строка

var
  s: string;
  d: byte;

begin
  readln(s);
  foreach c: char in s do
    if (ord(c) > d) then
      d := ord(c);
  writeln(chr(d));
end.