var k,a,i:integer;

s:string;

BEGIN

readln(a);

s:=IntToStr(a);

k:=10;

for i:=1 to Length(s)-1 do begin

if (StrToInt(copy(s,i,2))>k) then

k:=StrToInt(copy(s,i,2));

end;

writeln(k);

end.

Program n_1;

uses math;

var i, n, m, a, kol, j:int64;

begin

   readln(n);

   kol:=0;

   a:=n;

   while a<>0 do begin

       a:=a div 10;

       kol:=kol+1;

   end;

   m:=n mod 100;

   for i:=1 to kol-1 do begin

       if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;

       n:=m div 10;

   end;

   writeln(m);

end.

Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.