Как заменить (not eoln) ?

var
      ch:char;
      l,k,kmax:integer;
begin
      Kmax:=0;
    writeln('vvedite text');
      repeat
        K:=0;
        read(ch);
        L:=ord(ch)-48;
            while (L>=0) and (L<=9) and (not eoln) do
               begin
                K:=K+1;
                read(ch);
                L:=ord(ch)-48;
               end;
            if (L>=0) and (L<=9) then K:=k+1;
        if K>kmax then kmax:=k;
      until eoln;
      writeln(kmax);
readln;
readln;
end.

uses crt;
const cf=['0'..'9'];//цифры
      z=['a'..'z','+','-','*']; //прочие допустимые символы
var ds:set of char;
    c:char;
    s,s1,gc:string;
    n,i,j,mx:byte;
begin
clrscr;
writeln('Введите строку из малых английских букв, цифр  и знаков +  - * ');
writeln('окончание ввода Enter');
s:='';
n:=0;{длина строки}
ds:=cf+z;{допустимые символы}
repeat
c:=readkey;{читаем код клавиши}
if c in ds then{если допустимый}
 begin
  n:=n+1;{считаем}
  s:=s+c;{добавляем к строке}
  write(c);{выводим на экран}
 end;
if c=#13 then writeln;{если Enter, на новую строку}
until c=#13;{конец ввода}
s:='a'+s;//добавим в начало символ не цифру
{будем искать максимальную цепочку цифр}
i:=1;
mx:=0;
while i<=n do{пока не конец строки}
if(s[i] in cf)and not((s[i-1] in cf)) then{если цифра и перед ней не цифра}
 begin
  s1:='';{слово}
  j:=i;
  while(j<=n)and(s[j] in cf) do{пока не конец и цифра}
   begin
    s1:=s1+s[j];{составляем слово}
    j:=j+1;
   end;
  if length(s1)>mx then
   begin
    mx:=length(s1);//максимальная длина цепочки
    gc:=s1//сама цепочка
   end;
  i:=i+length(s1);{перешагиваем через слово}
 end
else i:=i+1;{если не цифра, пропускаем}
if mx=0 then write('Нет групп цифр')
else write('Длина максимальной группы цифр=',mx,' это ',gc);
readln
end.

var
  s, g: String;
  i, j: Integer;
begin
  Write('Введите текст: '); ReadLn(s);
  s:=s+' '; j:=1;
  for i:=1 to Length(s) do
    if not (s[i] in ['0'..'9']) then begin
      if i-j>Length(g) then g:=Copy(s,j,i-j);
      j:=i+1;
    end;
  WriteLn('Максимальная длина группы цифр: ',Length(g),', группа: "',g,'"');
end.

var
  m, n: Integer;
  c: Char;
begin
  Write('Введите текст: '); {m:=0; n:=0;}
  repeat
    if EoLn then c:=#10 else Read(c);
    if c in ['0'..'9'] then Inc(n)
    else begin
      if m<n then m:=n;
      n:=0;
    end;
  until c=#10;
  WriteLn('Максимальная длина группы цифр: ',m);
end.