Здравствуйте, Посетитель - 349343!

Смотрите приложение.
Текст "О,себе"... Спасибо за внимание!? находится в файле i181164.txt, результат работы по заданию №2 записывается в файл o181164.txt.
Процедура Check_A выводит на экран информацию о количестве вхождений в строку заданых символов и номер строки.
Функция Check_B проверяет каждый символ из контрольной строки задания и считает количество его вхождений в строку. В строке Check_B:= (c<2) and Check_B(a,b) проверяется условие не более одного раза, т.е. меньше 2-х и производится рекурсивный вызов самой себя, но с обновленными входными значениями: в проверяемой строке удалены все вхождения уже проверенного символа, в контрольной строке проверенный символ тоже удален.

Вопросы по программе задавайте в мини-форуме.
Удачи!

Приложение:
program q181164;
var
control_A,control_B,str_Line:string;
f_in,f_out:text;
Index_Line:integer;
{
процедура ввода строки с контрольными символами для обоих заданий
}
procedure Input_control(var a:string;b:char);
begin{}
repeat
write('Enter control_',b,' simbol(',#27,'s):');
readln(a);
if length(a)=0 then writeln('!!!!! E R R O R !!!!!');
until length(a)>0;
end;
{
процедура контроля задания №1:
определить считая от начала теста координаты (номер строки и номер
символа в строке)символов которые задаются в исходных данных
}
procedure Check_A(a,b:string);
var
c:integer;
begin{}
if pos(b,a)>0 then
begin
c:=0;
write('line:',index_Line:3,', position:');
while pos(b,a)>0 do
begin{}
write((pos(b,a)+c):4);{выводим позицию найденных символов с коррекцией}
delete(a,pos(b,a),length(b));{удаляем проверенный символ(ы)}
c:=c+length(b);{корректируем на длину проверенных символов}
end;
writeln;
end;{}
end;{}
{
функция контроля задания №2:
сформировать новый текст состоящий из строк заданного теста в каждой из которых
любой заданных символов встречается не более одного раза.
}
function Check_B(a,b:string):boolean;
var c:integer;
begin
if length(b)>0 then{условие выхода из рекурсии}
begin
c:=0;
while pos(b[1],a)>0 do{пока проверяемый символ встречается в строке}
begin{}
delete(a,pos(b[1],a),1);{удаляем его и увеличиваем счетчик}
inc(c);
end;{}
delete(b,1,1);{удаляем проверенный символ в контрольной строке}
Check_B:= (c<2) and Check_B(a,b);{проверяем количество вхождений в
строку и вызываем функцию контроля с другими параметрами}
end
else Check_B:=true;
end;
{
функция чтения одной строки из файла
}
function GetOneLine:string;
var
a:string;
b:char;
begin
a:='';{сбрасываем строку}
{в цикле считываем данные из файла, пока}
while not EOF(f_in)and{нет конца файла}
(copy(a,length(a)-1,2)<>'..')and{нет разделителя из двух точек}
(copy(a,length(a)-1,2)<>'!?')do{нет признака окончания текста}
begin{счтываем один символ и добавляем в строку}
read(f_in,b);
a:=a+b;
end;
GetOneLine:=a;{записываем результат работы}
end;
begin
{открываем файл для чтения}
assign(f_in,'i181164.txt');
reset(f_in);
{открываем файл для записи}
assign(f_out,'o181164.txt');
rewrite(f_out);
{вводим контрольные символы, для обоих заданий}
Input_control(control_A,'A');
Input_control(control_B,'B');
Index_Line:=0;
while(not EOF(f_in))and(copy(str_Line,length(str_Line)-1,2)<>'!?')do
begin{A}
Inc(index_Line);{увеличиваем счетчик строк}
str_Line:=GetOneLine;{считываем одну строку}
{
проверяем считаную строку в соответсвии с заданием №1
}
Check_A(str_Line,control_A);
{
проверяем считаную строку в соответсвии с заданием №2, если истина записываем строку
}
if Check_B(str_Line,control_B) then writeln(f_out,str_Line);
end;{A}
{закрываем фыйлы и выходим}
close(f_in);
close(f_out);
readln;
end.