Из введенного предложения вывести на экран все слова, содержащие букву.

[luuucky]

Всем добрый день. Нужна помощь. Нужно написать программу со следующим описание задачи: Из введенного предложения вывести на экран все слова, содержащие букву (буква задается с клавиатуры). Примечание: буква может находится в любой части слова и встречаться несколько раз. Помогите пожалуйста.

[Aleksandr H.]

var s:string; a:array[1..100] of string;
  i,count:integer;letter:char;
begin   {$o-}
 readln(s);
 writeln('bukwa');
 letter:=readkey;
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then 
    begin 
         if pos(letter,a[count])>=1 then writeln(a[count]); 
         inc(count);inc(i);
    end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 if pos(letter,a[count])>=1 then writeln(a[count]);
 end.

[luuucky]

Компилятор выводит ошибку как во вложении. Что с ней сделать ?

[Dvoishnik]

uses crt;

?

[dimon_snake]

var 
a:array[1..50] of string;
s:string;
c:char;
n,x,i,j:integer;
Begin
Writeln('Введите строку');
Readln(s);
Writeln('Введите символ');
Readln(c);
n:=length(s);
x:=1;
for i:=1 to n do
  if s[i]<>' ' 
  then a[x]:=a[x]+s[i]
  else Inc(x);
for i:=1 to x do
 begin
   s:=a[i];
   for j:=1 to length(s) do if s[j]=c then
     begin
       Writeln(s);
       break;
     end;
 end;
Readln;
end.