Прошу помощи в делфи

[sergeyfsd]

неполучаеться решить задачу. Помогите если возможно
Нужно создать приложение, предлагающее пользователю ввести строку текста, затем печатает все слова, имеющие нечетную длину и подсчитывает количество таких слов. Удалить среднюю букву из таких слов.

[Stilet]

Как не получается? Показывай.

[xPAL]

Вот пример. Особенно на ошибки не тестировал.

[eoln]

Два недочёта (помечены комментом)

procedure TForm1.Button1Click(Sender: TObject);
 var b,s:string;
  i,q,u:integer;
  a,k:char;
  n:string;
  t:integer;
begin
t:=0;
Edit2.Text:='';
 i:=1;
 b:=Edit1.text+' ';{раз изменение}

 repeat
  a:=b[i];
  if a<>' 'then
  s:=s+a else
  begin

    if  Length(trim(s)) mod 2<>0 then
     begin
     inc(t);
     q:=1;
     while q<=Length(s) do begin

       u:=(Length(s)+1) div 2;

      if q<>u then begin
         k:=s[q];
         n:=n+k;
      end;
        inc(q);
       end;
       Edit2.Text:=Edit2.Text+' '+n;

       n:='';

      end;
  s:='';
  end;

  inc(i);
 until i>Length(b);{два изменение}
 label1.Caption:=inttostr(t);
end;
end.

[xPAL]

Сообщение от eoln

Два недочёта (помечены комментом)

Спс я думал где это я не то сделал)))

[sergeyfsd]

спасибо вам