Толком не соображаю в Паскале, а очень нужно разобраться и сделать программу.
Помогите пожалуйста.
var
s,s1,s2,s3,s4: string;
k1,k2: integer;
f:file of char;
c:char;
begin
assign(f,'c:\file.txt');
reset(f);
read(f); // исходный текст
write('введите искомое слово 1: ');
readln(s2); // искомое слово
write('введите искомое слово 2: ');
readln(s3); // искомое слово
s1:=s; // временной переменной присваиваем значение исходного текста
while pos(s2,s1)<>0 do // пока такое слово есть в тексте
begin
inc(k1); // увеличиваем счетчик
delete(s1,pos(s2,s1),length(s2)); // удаляем слово из текста
end;
while pos(s3,s1)<>0 do
begin
inc(k2);
delete(s1,pos(s3,s1),length(s3));
end;
close (f);
begin
if (k1>=1) and (k2>=1) then
writeln('в тексте ',k1,'è',k2,' таких слов')
else
writeln('в тексте нет таких слов');
end;
end.
