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

[Kalipsoo]

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

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

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

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

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

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

[мисс_граффити]

Выкладывай результаты своих трудов... Тогда будет о чем говорить.
Сейчас это будет воспринято так: "Делать лень, решите за меня все"

[Kalipsoo]

Согласен звучит глупо )) Вот текст первой задачи, только просьба сразу не ругаться, а рассказать что не так, может я чего не понимаю....

1.)

Код

Program ZY;

type xp=array[1..5] of char;

var i:integer;

Procedure find(var a,b,c:xp);

var i:integer;
begin
For i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do readln(b[i]);
for i:=1 to 5 do readln(c[i]);

For i:=1 to 5 do
If (a[i]=b[i]) and (a[i]=c[i]) then writeln(a[i], 'Vxodit v 3 massiva');
end;
BEGIN
find(a,b,c);
end.

[Ozzя]

2.

var
  f: text;
...
assign(f,'1.txt');
rewrite(f);
while s<>'END' do // признак окончания вводa
  begin
     readln(s);
     writeln(f,s);
  end;
close(f);
...