Ответ:

var S, word_:string;

   max, num:integer;

begin

max:=-2147483648;

readln(S);

S:=S+' ';

while S.Length > 0 do begin

 word_ := copy(S, 1, pos(' ', S, 1));

 delete(S, 1, pos(' ', S, 1));

 if TryStrToInt(word_, num) = true then begin

   if num > max then

     max:=num;

 end;

end;

writeln(num);

end.

Объяснение: