Помогите, с файлами

[Никита757]

Дан текстовый файл, состоящий из слов, разделенных пробелами. Определить буквы, которые присутствуют во всех словах одновременно.
Дополните, пожалуйста, код, сам не могу сообразить

Program TextFile1; 
Var 
   f : text;
  S : char; 
Begin
  assign(f, 'input.txt'); 
  reset(f);
  while not Eof(f) do
    begin
      read(f, S); 
      write(S); 
    end;
  close(f);
End.

[Stilet]

Мдя... Скудновато решеньеце.
Ладно. Допустим дополнить можно так: Опиши массив букв и для цикла счетчик.

var l:array['а'..'я'] of boolean; i:integer;c:char;

До того как открывать файл, проинициализируй массив:

 for c:='а' to 'я' do l[c]:=true;

После ввода строки:

 for c:='а' to 'я' do if pos(l[c],s)=0 then l[c]:=false;

И вывод оставшегося после обработки файла.

 for c:='а' to 'я' do if l[c] then write(c);

Если не ошибаюсь, буквы, находящиеся в каждом слове не получат статус false, что и даст ответ на твой вопрос.

Идея уловима?

[GreenWizard]

дубликат http://www.programmersforum.ru/showthread.php?t=282373
там же и методы решения есть

[Никита757]

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

[Stilet]

А-а-а... Так это кросс... Недоглядел. Тему закрываю.