program MyCharDemo;

uses
  Forms;

var
 Answer: Char;
 Question: Char;

begin
 Question := 'A';
 Answer := 'B';
 Writeln('Pytanie: ', Question);
 Writeln('Odpowied: ', Answer);

 Answer := Question;
 Question := #66;
 Writeln('Pytanie: ', Question);
 Writeln('Odpowied: ', Answer);

 Readln;
end.