Процедура и Файлы, Извините, что спрашиваю простые вроде задачи Опции

[Kalipsoo]

Извините, что спрашиваю простые вроде задачи, но мне нужно их обязательно сделать и в жатые сроки.А задачи вот такого плана:
1.)

Даны три массива символов.Определить какие символы входят в состав всех 3х массивов.Для решения задачи обязательно нужно исползовать процедуру или функцию.

Задача из разряда проще не куда, но у меня она никак не решается, то ли я в процедурах запутался..вообщем если не сложно, то приведите листинг программы, чтобы я со своим "убожеством" сравнил.

2.)Составить программы с помошью которых:
--сформировать текстовый файл из строк, которые должны быть введены с клавиатуры.
--вывести на экран строки содержащие слово "стоп".

Саму программу вроде написал, только она упрямо выдаёт неправильный результат, опять же если не сложно приложите листинг программы для наглядности.

Заранее спасибо за ответы