В тексте найти самую длиную группу цифр

uses crt;
const ds=[' ','0'..'9'];
var s,g1,gmx,s1,s2,s3:string;
    k,d1,dmx,i,i1,imx,j:byte;
begin
clrscr;
repeat
k:=0;
writeln('Введите текст из групп цифр, отделенных пробелами:');
readln(s);
for i:=1 to length(s) do
if not(s[i] in ds)then k:=1;
if k=1 then writeln('Текст введен неверно, повторите ввод');
until k=0;
i:=1;
i1:=0;{начало в строке первой группы, могут в начале идти пробелы.}
while (i<=length(s)) and(i1=0) do
if s[i]<>' ' then
 begin
  i1:=i;
  g1:='';{будем составлять слово}
  j:=i;
  while (s[j]<>' ')and(j<=length(s)) do
   begin
    g1:=g1+s[j];
    j:=j+1;
   end;
 end
else i:=i+1;
if i1=0 then write('Строка пустая или толькo из пробелов!')
else
 begin
  write('Первая группа цифр:  ');
  writeln(g1);
  d1:=length(g1);
  dmx:=0;{длина самой длинной}
  imx:=0;{и ее начало в строке}
  i:=i1+d1;{едем дальше искать самую длинную}
  while i<=length(s) do
  if s[i]<>' '  then
   begin
    s1:='';{будем составлять слово}
    j:=i;
    while (s[j]<>' ')and(j<=length(s)) do
     begin
      s1:=s1+s[j];
      j:=j+1;
     end;
    if(s1[1]='1') and (s1[length(s1)]='1') then{если первая и последняя=1}
    if length(s1)>dmx then{если длиннее}
     begin
      gmx:=s1;
      dmx:=length(s1);
      imx:=i;
     end;
    i:=i+length(s1);
   end
  else i:=i+1;
  if imx=0 then writeln('Нет группы цифр для обмена!')
  else
   begin
    writeln('Самое длинная группа для обмена: ',gmx);
    insert(g1,s,imx);{вставляем первую группу перед длинной}
    delete(s,imx+d1,dmx);{удаляем длинное}
    insert(gmx,s,i1);{вставляем длинное на старое место первого}
    delete(s,i1+dmx,d1);{удаляем короткое}
    write(s);
   end;
 end;
readln
end.

if(s1[1]='1') and (s1[length(s1)]='1') then{если первая и последняя=1}

 if s1[1]='9'