Табуляция

[Lonely Soul]

Задан текст, в котором через пробел и табуляцию записаны несколько целых чисел. Определить максимальное из этих чисел.

[Stilet]

Попытки? Наработки?

[Lonely Soul]

как-то так...

uses crt;
var 
    s:string;
    i:byte;
begin
clrscr;
 begin
 write('s=');
  readln(s);
  for i:=length(s) downto 1 do
    insert('        ',s,i);
    insert(' ',s,i);
   end;
  writeln(s);
readln
end.

[Aleksandr H.]

Сообщение от Lonely Soul

как-то так...
uses crt;
var
s:string;
i:byte;
begin
clrscr;
begin
write('s=');
readln(s);
for i:=length(s) downto 1 do
insert(' ',s,i);
insert(' ',s,i);
end;
writeln(s);
readln
end.

как-то бред

var i,code,n,max:integer;
s,s1:string;
begin
  s := 'one 2 three 4 five 6';
  s:=s+' ';
  s1:='';
  for i:=1 to length(s) do
  begin
      if s[i]<>' ' then s1:=s1+s[i]
      else
      begin
        val(s1,n,code);
        if (code = 0) and (max<n) then max:=n;  
        s1:='';
      end;
  end;
  writeln(max);
end.