В данном коде допишите функцию printMax(list), которая принимает на вход список и выводит на экран максимальное число в списке. Заранее большое

Максимальное числа-5,8,9

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

знаки той же арифметики, если эмоции- те же смайлики.