Записать в текстовый файл все слова, длина которых больше 9 символов, встречающихся в заданном тексте

uses crt;
var s,s1,s2:string;
    i,j,p:integer;
    f:text;
begin
clrscr;
writeln('Введите текст из слов  разделенных пробелами');
readln(s);
s:=' '+s; {добавим пробел в начало для удобства}
assign(f,'Slova.txt');
rewrite(f);
i:=2;
p:=0;{нет слов из более 9 символов}
while i<length(s) do{идем по строке}
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел, новое слово}
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do {составим его}
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  i:=i+length(s1);{перешагиваем через слово}
  if length(s1)>8 then  {если больше 9 символов}
   begin
    p:=1;{есть нужное слово}
    writeln(f,s1);{пишем его в файл}
   end;
 end
else i:=i+1; {пропускаем пробелы}
if p=0 then writeln(f,'Нет слов больше 9 символов');
close(f);
readln
end.