Вывести на экран все слова строки, которые начинаются на вводимый с клавиатуры символ - Pascal

Var s,s1:string;
    ch:char;
Begin
    write('Введите строку из 4-х слов: ');readln(s);
    write('Введите символ: ');readln(ch);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if s1[1]=ch then writeln(s1);
    End;
    readln;
End.