Erstellung einer Funktion

[Mo53]

Ok hab das mit der Fehlermeldung gelöst, ich würde jetzt gerne dafür sorgen das diese Funktion nicht mehr die Anzahl der längsten Ziffernfolge ausgibt sondern die längste Ziffernfolge selbst, anscheinend ist es schwerer als gedacht oder übersehe ich einfach etwas

Delphi-Quellcode:

function longestNumber(s: string): byte;
var
  run, number, longNum: byte;
begin
  longNum := 0;
  number := 0;
  for run := 1 to length(s) do
  begin
    case s[run] of

      '0' .. '9':
        inc(number)

    else
      begin
        if number > longNum then
          longNum := number;
        number := 0;
      end;
    end;
  end;
  if number > longNum then
  begin
    longNum := number;
    longestNumber := longNum;
  end;
end;