Форум программистов [Powered by Invision Power Board]

Код

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Replace(Str, X, Y: string): string;
{Str - строка, в которой будет производиться замена.
 X - подстрока, которая должна быть заменена.
 Y - подстрока, на которую будет произведена заменена}
var
  buf1, buf2, buffer: string;
begin
  buf1 := '';
  buf2 := Str;
  Buffer := Str;
  while Pos(X, buf2) > 0 do
  begin
    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
    Delete(buf2, Pos(X, buf2), Length(X));
    Buffer := buf1 + buf2;
  end;
  Replace := Buffer;
end;  

var
  F: Text;
  s: string;
begin
  Assign(F, 'C:\1.txt');
  Reset(F);
  Readln(F, s);
  Close(F);
  s := Replace(s, 'Pascal', 'Паскаль');
  Rewrite(F);
  Writeln(F, s);
  Close(F);
end.