Удалить в тексте, все слова которого разделены одним пробелом, первое слово, если в нём больше, чем 7 букв. (школьный pascal)

Var
s:string;
begin
readln(s);
if pos(' ',s)>8 then delete(s,1,pos(' ',s));
writeln(s);
end.