Вывести на экран длину наибольшей последовательности цифр, идущих подряд

function LenMaxLengthNumber(s : string; var IndexOfMax : integer) : integer;
var
  i, max, k, max_index : integer;
begin
  {поиск самой длинной последовательности}
  max := 0;
  k := 0;
  for i := 1 to length(s) do begin
    if s[i] in ['0'..'9'] then inc(k)
    else
      begin
       if (k > max) then
         begin
           max := k;
           max_index := i - k;
         end;
       k := 0;
     end;
  end;
 
  {а это проверка, если самая длинная
      последовательность завершает строку}
  if (k > max) then begin
     max := k;
     max_index := Length(s) - k + 1;
  end;
 
 
  LenMaxLengthNumber := max;
 
  if max=0 then IndexOfMax := 0 { 'Ничего найти ва-аа-аще не удалось!' }
  else 
     IndexOfMax := max_index;
     { 'Самая длинная последовательность длиной ',max:1,
                ' начинается с позиции ', max_index:1; }
end;
 
var S0 : string;
  maxLength, indx : integer;
begin
  S0 := 'asdffs434 dfds 344sds7812';
 
  indx := 0;
  maxLength := LenMaxLengthNumber(S0, indx);
 
  if maxLength = 0 then
    WriteLn('Нет числовой последовательности в строке') 
  else
    WriteLn('Самая длинная последовательность длиной ',maxLength:1,
                ' является: "',Copy(S0,indx,maxLength)+'"');
 
  readln;
end.