Program Vymeny;

var Hrabal, Hrabal2:String;

begin
  Hrabal := 'Obsluhoval jsem anglickho krle';
  write('Promnn Hrabal nyn obsahuje: ');
  writeln(Hrabal);
  Hrabal2 := Hrabal;
  Hrabal := 'Postiiny';
  writeln('Probhly vmny.');
  write('Promnn Hrabal nyn obsahuje: ');
  writeln(Hrabal);
  write('Promnn Hrabal2 nyn obsahuje: ');
  writeln(Hrabal2);
  readln;
end.