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

uses crt;
const numb=['0'..'9']; m=80;
type text=array[1..m] of string;
var smax,s:string; j,i,k,n,max,nmax:integer;
t:text;
begin
j:=1;
write('Введите текст:');
readln(t[j]);
while (length(t[j])>0) do begin
s:=t[j]+' ';
max:=0;
nmax:=1;
i:=1;
while i<=length(s) do
if s[i] in numb then
begin
n:=i;
k:=1;
while s[n+k] in numb do
k:=k+1;
if k>max then
 begin
  max:=k;
  nmax:=n;
  smax:=copy(s,nmax,max);
  end;
i:=i+k+1;
end
else i:=i+1;
j:=j+1;
readln(t[j]);
end;
writeln('Самая длинная цепочка цифр',smax);
write('Количество= ',length(smax));
end.

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