Дана строка символов. Удалить из нее все слова, начинающиеся с заданной буквы — Pascal(Паскаль)

uses crt;
var
s,s1:string;
i,j,n,f:integer;
 
begin
clrscr;
write('Введите строку ->');
readln(s);
repeat
write('Введите букву ->');
readln(s1);
until length(s1)=1;
s:=' '+s+' ';
n:=length(s);
i:=1;
while i<n do
begin
if s[i]=' ' then
                begin
                f:=0;
                j:=i+1;
                if s[j]=s1 then f:=1;
                while s[j]<>' ' do
                  begin
                  if f=1 then
                             begin
                             delete(s,j,1);
                             dec(j);
                             dec(n);
                             end;
                  inc(j);
                  end;
                end;
i:=j;
end;
delete(s,1,1);
delete(s,length(s),1);
writeln('Строка после удаления:');
writeln(s);
end.