Ошибка: неверное число параметров функции

[4ertovo4ka]

Помогите пожалуйста!!! Вот задание: Создайте текстовый файл р. Составьте программу контекстной замены одного слова на другое.

var
  P : Text;
  Name, S, S1, S2 : String;
begin
  Name := ReadLnString('Введите имя текстового файла:');
  Assign(P, Name); Rewrite(P);
  WriteLn('Вводите строки в текстовый файл. Окончание ввода - пустая строка.');
  repeat
    ReadLn(S); if S <> '' then WriteLn(P, S);
  until S = '';
  Close(P);
  WriteLn('Текст сохранён в файл.');
  
  S1 := ReadString('Введите что искать: ');
  S2 := ReadString('   на что заменять: ');
  
  S := System.IO.File.ReadAllText(Name);
  
  S := S.Replace(S1, S2);
  WriteLn('Произведена замена:');
  Print(S);
  
  System.IO.File.WriteAllText(Name, S);
  WriteLn('Файл с заменой сохранён.');
  
  WriteLn('Работа программы завершена.');
end.

[min@y™]

это ваще в какой среде написано? под какой компайлер?

[Stilet]

ABC.NET судя по всему.