Вывести слова, оканчивающиеся буквой, которая указывается пользователем - Pascal ABC

Var s, word : string;
    c : char;
    i : integer;
begin
Readln(s); //строка
Readln(c); //буква
i:=1;
While (i <=length(s)) do
      begin
      While (s[i]<>' ') and (i <=length(s)) do
            begin
            word:=word+s[i];
            i:=i+1;
            end;
      If (word[length(word)]=c) then Writeln(word);
      word:='';
      i:=i+1;
      end;
Readln;
end.