Помогите решить задачу на строки (паскаль)

[mpegable]

Помогите решить задачу на строки (паскаль)

Написать (в порядке появления в тексте) все слова, длина которых попадает в интервал [X, Y]. Здесь X и Y целые числа, задающиеся пользователем.

Вот код, но что-то тут не так:

var o,x,y,i,j,k,chp:integer; s:string; a: array of string; p:char;
begin 
         write('Enter text '); read(s);
         write('Enter x '); read(x);
         write('Enter y '); read(y);
         p:=' '; chp:=0;
for i:=1 to length(s) do
if s[i]=p then chp:=chp+1;
setlength(a,chp+1);
i:=0; j:=1;
while (i<=chp) do
if s[j]<>p then begin 
                                    a[i]:=a[i]+s[j];
                                     j:=j+1 end else begin i:=i+1; j:=j+1 end;
for k:=0 to chp do
if ((length(a[k])>=x) and (length(a[k])<=y)) then write(a[k],' ');
readln(o)
end.

Заранее Благодарен

[Stilet]

Попробуй так:

  const x=3; y=7;
var e,s:string;i:integer;
begin
readln(s); {Тут текст вводится}
i:=0;
while i<=length(s) do begin
 if s[i]=' ' then begin
  if length(e) in [x..y] then writeln(e);{выводим слово если его длина в заданном пределе}
  e:='';
 end;
 inc(i);
 e:=e+s[i];
end;
 readln;
end.