строки (паскаль)

[shadowmaker]

привет всем!
удалить все слова введенной строки, длина которых меньше 3 символов.

uses crt;
var
   s:string;
   i,n,p:integer;
begin
     clrscr;
     readln(s);
     s:=s+' ';
     p:=0;
     n:=0;
     for i:=1 to length(s) do
         if s[i]<>' ' then n:=n+1
                      else
                          begin
                               if n<3 then delete(s,p,n);
                               p:=i+1;
                               n:=0;
                          end;
     write(s);
     readln;
end.

чё-то нифига не получается, уже по-разному пробовал.
заранее благодарен

я ее переделал. она работает, но мне не нравится как она написана.
поправьте, если не сложно

uses crt;
var
   s:string;
   i,n,p:integer;
begin
     clrscr;
     readln(s);
     s:=' '+s+' ';
     for n:=1 to 5 do
     for i:=1 to length(s) do
     if s[i]=' ' then for p:=i-1 downto 1 do
     if (s[p]=' ') and ((i-p-1)<3) then delete(s,p+1,i-p);
     write(s);
     readln;
end.

[Stilet]

Могу предложить разбивку строки на слова в массив
http://www.programmersforum.ru/showt...369#post398369
Там добавь условие в цикл перед увеличением счетчика count

   
 if  length(a[count])<3 then a[count]:='';

А потом просто массив выводи на экран

[shadowmaker]

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

Могу предложить разбивку строки на слова в массив
http://www.programmersforum.ru/showt...369#post398369
Там добавь условие в цикл перед увеличением счетчика count

   
 if  length(a[count])<3 then a[count]:='';

А потом просто массив выводи на экран

спасибо большое!