Найти и вывести на печать слова, являющиеся шестнадцатеричными числами и самое длинное из них

type mn=set of 'a'..'f';
var str,str2:string;
    h:mn;
    i,j,count:integer;
    res,res1:longint;
function st16(a:integer):longint;
var i,h:integer;
  begin
    if a=0 then st16:=1
    else
      begin
        h:=16;
        for i:= 1 to a-1 do h:=h*16;
        st16:=h;
      end;
  end;
begin
readln(str);
h:=['a'..'f'];
for i:=1 to length(str) do
  begin
    if (i=length(str)) or (str[i]=' ') then
      begin
        if i=length(str) then str2:=str2+str[length(str)];
        j:=1;
        while (j<=length(str2)) and (str2[j] in h) do inc(j);
        if j=length(str2)+1 then
          begin
            inc(count);
            res:=0;
            for j:=length(str2) downto 1 do
              res:=res+st16(length(str2)-j)*(ord(str2[j])-87);
            writeln(res);
            if count=1 then res1:=res;
            if res>res1 then res1:=res;
          end;
        str2:='';
      end
    else
      str2:=str2+str[i];
  end;
  writeln(res1);
  readln;
end.

var str,c:string; i, l,j:integer;
begin
readln(str);
repeat
j:=i;
l:=0;
while (str[i]<>' ') or (str[i]<>'') do
begin 
case str[i] of
'a':c:=c +str;
'b':c:=c +str;
'c':c:=c +str;
'd':c:=c +str;
'e':c:=c +str;
'f':c:=c +str;
end;
inc(i); inc(l);
end;
if l=i-j then writeln (c);
until i=length(str)+1;
end.

var
  f: file of string[100];
  s, c: string[100];
  err: boolean;
  n, k, max, i: integer;
 
begin
  assign(f, 'chisla.txt');
  rewrite(f);
  writeln('Введите строку:');
  readln(s);
  writeln;
  s := s + ' ';
  while pos(' ', s) <> 0 do
  begin
    err := false;
    c := copy(s, pos(' ', s) + 1, length(s));
    delete(s, pos(' ', s), length(s));
    for i := 1 to length(s) do if not (s[i] in ['0'..'9', 'A'..'F']) then err := true;
    if err = false then begin
      writeln(s); write(f, s); inc(k);
      if length(s) > max then begin
        max := length(s); n := k
      end
    end;
    s := c
  end;
  if not (n = 0) then begin
    Seek(f, n - 1);
    read(f, c);
    writeln('Самое длинное число: ', c);
  end else writeln('Чисел нет!');
  close(f);
end.