Составить программы в паскаль: 1. определить количество букв «d» в первом предложении файла. 2. создать новый файл и переписать в него текст из исходного файла, заменив каждую пару подряд идущих символов "а" (т.е. "аа") на "а". остальные символы и их порядок не должны измениться

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

№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.