Строки. Помогите найти ошибку.

[5nizza77]

Дана строка из нескольких слов, которые отделяются друг от друга пробелами. Вывести слова, задающие в виде строки целые числа (они могут быть и отрицательными). Например, для строки “аbс-90w tr567u -- i-o ” должны быть выведены строки “-90”, “567”.

var
e,s,a:string;
i,k:integer;
begin
  readln(s);
  i:=1;
  while i<=length(s)+1 do
    begin
      if s[i] in ['-','0'..'9',' '] then
      e:=e+s[i];
      i:=i+1;
    end;
//write(e);
  i:=1;
  k:=length(e);
  repeat
    while not ((e[i] in [' ']) or (i>k)) do
      begin
        if e[i] in ['-'] then
          if (e[i+1] in ['-',' ']) or (e[i-1] in ['-','0'..'9']) then e[i]:='' else

        a:=a+e[i] else a:=a+e[i];

            inc(i);
      end; inc(i);
  until  i>k;
  write(a);
  readln;
end.

[Вавел из ГМТУ]

Во первых у тебя уже имеется тема где обсуждается эта задача. Поститесь туда...

Во вторых указывай что тебе не нравиться в работе этой программы. Мне например лениво компилить её. К томуже искать баг в алгоритме это самое ленивое на свете.