Составить программы в паскаль: 1. определить количество букв «d» в первом предложении файла. 2. создать новый файл и переписать в него текст из исходного файла, заменив каждую пару подряд идущих символов "а" (т.е. "аа") на "а". остальные символы и их порядок не должны измениться
// Внимание! Если программа не работает, обновите версию!
№1. Файл Text.txt
begin
Writeln('Количество букв "d" равно ',
ReadAllText('Text.txt').MatchValue('.*\.').Where(c->c='d').Count)
end.
№2. Файл Text1.txt -> Text2.txt
begin
WriteAllText('Text2.txt',ReadAllText('Text1.txt').Replace('аа','A'))
end.