Удаление длинных слов из строки

[Broken Angel]

Прошу помочь. Я написала прогу для подсчета кол-ва букв в словах и теперь не знаю, как сравнить полученные результаты с заданным параметром d (d - максимальная длина слова, задающаяся с клавиатуры) и удалить те, которые длиннее чем d.
Вот моя программа:

uses crt;
var
d:integer;
s,s1:string;
begin
writeln('Введите строку:');
readln(s);
write('Введите максимальную длину слова: ');
readln(d);
 if (Length(s)>0) and (Copy(s,Length(s),1)<>' ') then
     s := s + ' ';
 begin
 while pos(' ',s)<>0 do begin
    if pos(' ',s)>1 then begin
       s1:=copy(s,1,pos(' ',s)-1);
         writeln('В слове ',s1,' - ',length(s1),' символ(ов)');
  delete(s,1,pos(' ',s));      
end;
end;
end;
end.

[Hacker19_90]

ну вот смотрите (по вашему примеру)

uses crt;
var
d:integer;
s,s1:string;
begin
writeln('Введите строку:');
readln(s);
write('Введите максимальную длину слова: ');
readln(d);
 if (Length(s)>0) and (Copy(s,Length(s),1)<>' ') then
     s := s + ' ';
 begin
 i := 1;
 j := 0;
 while j <> length(s) do 
 begin
       s1:=copy(s,i,pos(' ',s)-1);
       j := pos(' ',s);
       if d < length(s1) then
            delete(s,i,pos(' ',s));
       i := (j +1);      
end;
end;
end;
end.

Писал с потолка!

[russian-stalker]

Можно так сделать:

var
	d:integer;
	s,s1:string;
begin
	writeln('Введите строку:');
	readln(s);
	write('Введите максимальную длину слова: ');
	readln(d);
	s1 := '';
	while length(s) <> 0 do
	begin
		if pos(' ', s) <> 0 then
		begin
			if length(copy(s, 1, pos(' ', s)-1)) <= d then
				s1 := s1 + copy(s, 1, pos(' ', s));
			delete(s, 1, pos(' ',s));
		end else
		begin
			if length(copy(s, 1, length(s))) <= d then
				s1 := s1 + copy(s, 1, length(s));
			delete(s, 1, length(s));
		end;
	end;
	writeln(s1);
end.

[Broken Angel]

Спасибо огромнейшее!