Program ZamenaZnaku;

var Text1:String;

begin
  Text1 := 'Pavla';
  writeln(Text1);
  Text1[4] := 'e';
  Text1[5] := 'l';
  writeln('Probhla vmna.');
  writeln(Text1);
  readln();
end.
