Помогите с написанием программы. Pascal

[Niik]

Помогите с написанием программы. Pascal

Необходимо ввести строку (предложение) и определить в ней количество чисел, записанных в шестнадцатеричном виде и определить максимальное из них

 

[Vladimir_S]

Необходимо ввести строку (предложение) и определить в ней количество чисел, записанных в шестнадцатеричном виде и определить максимальное из них

А каков критерий отбора? Например, если в строке встречается сочетание "ABBA", то что это — название некогда популярной шведской вокальной группы или число 43962?

 

[Niik]

Сказано в задании это: шестнадцатеричное число - это последовательность символов, состоящая из символов от '0' до '9' и 'a' ..'f' ('A'..'F').

 

[Niik]

А это пример входной строки
asdfgz FF, 1F, XX3, Z11111, aF, 10.

 

[Vladimir_S]

Понятно. Ладно, сейчас покручу.

 

[Vladimir_S]

Ну вот, получите.
Только, сразу оговариваю:
1. Программа написана для Turbo (Free) Pascal, если у Вас этот грёбаный богомерзкий ABC и на нём она не идёт — не мои проблемы. Этой гадости не держу и не собираюсь.
2. Кириллица НЕ допускается — только латиница.

Const
 Q:Set of Char=['a'..'z']+['A'..'Z']+['0'..'9'];
VAR
 W:Array[1..100] of String;
 R:Array[1..100] of LongInt;
 S:String;
 C:Integer;
 D:LongInt;
 i,N,j:Byte;
BEGIN
 Writeln('Enter the string:');
 Readln(S);
 for i:=1 to 100 do W[i]:='';
 i:=0;
 N:=1;
 Repeat
  Inc(i);
  if (S[i] in Q) then W[N]:=W[N]+S[i];
 Until Not(S[i] in Q) or (i=Length(S));
 Repeat
  if i<Length(S) then
   begin
    Dec(i);
    repeat
     Inc(i);
    until (S[i] in Q);
    Dec(i);
    Inc(N);
    repeat
     Inc(i);
     if (S[i] in Q) then W[N]:=W[N]+S[i];
    until Not(S[i] in Q) or (i=Length(S));
   end;
  Until (i=Length(S));
  j:=0;
  for i:=1 to N do
   begin
    W[i]:='$'+W[i];
    Val(W[i],D,C);
    if C=0 then
     begin
      Inc(j);
      R[j]:=D;
      Writeln('Sedecimal: '+W[i]+' Decimal: ',R[j]);
     end;
   end;
  if j>0 then
   begin
    i:=1;
    D:=R[1];
    repeat
     Inc(i);
     if (i<=j) and (R[i]>D) then D:=R[i];
    until i=j;
   end;
 Writeln('Maximal value is ',D);
 Readln;
END.

 

[Niik]

Огромное спасибо, очень помогли!