задача на сложные действия со строками

[Converse]

Дан текст найти максимальное из имеющихся в нем чисел.
Напишите пожалуйста, очень надо.

[Небесный]

Procedure Max;
var
  max, i : integer;
  mas : array[1..??] of integer;
begin
  max:=mas;
  for i:=1 to ?? do
    begin
      if mas[i]>max then 
        max:=mas[i];
    end;
  writeln('Максимальное число = ',max );
end;

Вытянул кусочек примера со своей контрольной.

[Converse]

Сообщение от Небесный

Procedure Max;
var
  max, i : integer;
  mas : array[1..??] of integer;
begin
  max:=mas;
  for i:=1 to ?? do
    begin
      if mas[i]>max then 
        max:=mas[i];
    end;
  writeln('Максимальное число = ',max );
end;

Вытянул кусочек примера со своей контрольной.

Спасибо тебе огромное!!!!

[Vituskz]

а причем тут массив?...Ему же надо из строки число выдернуть?
вобщем если надо, то вот, что я написал:

Const
 max=100;//максимальное искаемое число
Var
 s:String;
 m,i:Integer;
Function ToStr(k:Longint):String;
Var
 S:String;
Begin
 Str(k,S);
 ToStr:=S;
End;
Begin
 Readln(s);
 m:=0;
 For i:=1 To max Do
  IF pos(ToStr(i),s)>0 Then
   m:=i;
 Writeln(m);
End.

ЗЫ.Это если там еще всякие символы будут..например переменная
S=asf16fgvn7.sa91sfjl14klsnsd57
Ответ будет 91

[Alar]

Vituskz, строка это тоже массив символов. Можно обращаться к символу так - str[3]

[Vituskz]

Да знаю я, но ты сам написал, что это набор символов, а не чисел...вобщем че спорить, задача простая...просто ты по своему решил, а я по другому...