Удалить из файла все однобуквенные слова — Pascal(Паскаль)

Program word1;
 var
q:text;
s:string;
i:integer;
fname:string;
begin
writeln('pri vvode enter budut udaleni odnobukvennie slova');
fname:='finish.txt';
assign(q,fname);
reset(q);
read(q,s);
rewrite(q);
while (s[i+1]=' ') and (s[i-1]=' ') do
delete (s,i,1);
write(q,s);
close(q);
readln;
end.