Só chữ e gần nhau và nhiều nhất trong dãy

Uses crt;
Var s1,s,a: string;
  i: byte;
Begin
  clrscr;
  write('nhap xau s:');
  readln(s);
  a := 'e';
  s1 := 'e';
  If pos(s1,s)=0 Then writeln('khong co chu e nao')
  Else
   While pos(s1,s)<>0 Do
         insert(a,s1,1);
    delete(s1,1,1);
    writeln('so chu e gan nhau nhieu nhat la:',length(s1));
    writeln(s1);
  readln
End.