@dain

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

program pr1;
var
s:array[1..4] of string;
s1,s2:string;
i,j,n,a:integer;
slovo,slovo1:string;
begin
cls;
j:=1;

//ввод строки и формирование массива

writeln('Введите строку из 4 слов разделенных пробелом, в конце точка');
readln(s1);
for i:=1 to 4 do
begin
s[i]:=copy(s1,j,pos(' ',s1)-1);
writeln(i,'-ое слово= ',s[i]);
j:=j+4;
end;

//проверка на одинаковые буквы

slovo1:=s[1];
for i:=2 to 4 do // //сдесь берем слова из нашей строки начиная со второго
begin
slovo:=s[i]; // сохраняем это слово в переменную
n:=length(slovo); //находим длинну и сохраняем ее в переменную
for a:=1 to length(slovo1) do // перебераем все буквы в первом слове строки
begin
for j:=1 to n do // перебераем все буквы со словом из переменной slovo
begin
if slovo1[a]=slovo[j] then // проверяем есть ли одинаковые буквы
begin
writeln('слово, которое имеет рохожие буквы с первым - ',slovo); //если ест сохраняем слово в массив b
break; //перестаем проверять буквы из перем slovo
end;
end;
end;
end;
end.

необходимо осуществить ввод строки из текстового файла, провети обработку и сохранить результат в текстовом файле

0