Ввести строку и определить, содержат ли все слова заданную с клавиатуры букву

function checkstr(var arg:string;c:char):boolean;
var
  i:integer;
  st:string;
begin
  checkstr:=true;
  st:='';
  for i:=1 to length(arg) do
    if arg[i]<>' ' then
      st:=st+arg[i]
    else begin
      if pos(c,st)=0 then begin
        checkstr:=false;
        break;
      end;
      st:='';
    end;
end;
 
var
  s:string;
  ch:char;
 
begin
  writeln('введите предложене:');
  readln(s);
  writeln('введите букву');
  readln(ch);
  if s[length(s)]<>' ' then
    s:=s+' ';
  if pos(ch,s)=0 then
    writeln('в данном предложении нет буквы ',ch)
  else
    if checkstr(s,ch) then
      writeln('буква ',ch,' встречается в каждом слове')
    else
      writeln('буква ',ch,' встречается не в каждом слове');
  readln
end.