Вывод последовательности стоящих подряд цифр

uses crt;
const cf=['0'..'9'];
var s:string;
    i,k,n,mx,nmx,kmx:byte;
begin
clrscr;
write('Строка:  ');
readln(s);
s:=s+' ';
mx:=0;nmx:=1;
i:=1;
while i<=length(s)do
if s[i] in cf then
 begin
  n:=i;k:=1;
  while s[n+k] in cf do
  k:=k+1;
  if k>mx then
    begin
     mx:=k;
     nmx:=n;
    end;
  i:=i+k+1;
 end
else i:=i+1;
if mx=0 then write('В строке нет цифр')
else write('Самая длинная цепочка цифр  ',copy(s,nmx,mx));
readln
end.

uses crt;
const cf=['0'..'9'];
var s,s1:string;
    i,j,k,n,mx:byte;
    f:boolean;
begin
clrscr;
write('Строка:  ');
readln(s);
s:=s+' ';
//ищем максимальную длину
mx:=0;
i:=1;
while i<=length(s)do
if s[i] in cf then
 begin
  n:=i;k:=1;
  while s[n+k] in cf do
  k:=k+1;
  if k>mx then mx:=k;
  i:=i+k+1;
 end
else i:=i+1;
if mx=0 then write('В строке нет цифр')
else
 begin
  //ищем все максимальной длины
  writeln('Самые длинные последовательности цифр:');
  for i:=1 to length(s)-mx do
   begin
    s1:=copy(s,i,mx);
    f:=true;
    j:=1;
    while(j<=length(s1))and f do
    if not(s1[j] in cf) then f:=false
    else j:=j+1;
    if f then writeln(s1);
   end;
  end;
readln
end.