Program Vymena;

var Hrabal: String;

begin
  Hrabal := 'Nn barbar';
  write('Promnn Hrabal nyn obsahuje: ');
  writeln(Hrabal);
  Hrabal := 'Obsluhoval jsem anglickho krle';
  writeln('Probhla vmna');
  write('Promnn Hrabal nyn obsahuje: ');
  writeln(Hrabal);
  readln;
end.
