Пожалуйста ! Очень нужно! Дана строка S, состоящая из слов, разделённых пробелами, и буква c. Выведите все слова из S, которые начинаются с буквы c. ПАСКАЛЬ

var   s,subs:string;   c:char;   i,n,p:integer; begin   Writeln('Введите последовательность слов, разделенных пробелом');   Readln(s);   s:=' '+s+' ';   Write('Введите искомый символ: '); Readln(c);   subs:=' '+c;   n:=Length(s);   repeat     p:=Pos(subs,s);     if p>0 then begin       i:=p+2;       while (s[i]<>' ') and (i<=n) do i:=i+1;       Write(Copy(s,p+1,i-p-1),' ')     end;     if i<=n then s:=Copy(s,i,n-i+1)   until p=0  end. Тестовое решение: Введите последовательность слов, разделенных пробелом а роза упала на лапу азора Введите искомый символ: а а азора