Ввод символов с клавиатуры

Program Letter2;
   var
       X,Y:Char;
begin
   writeln('Введите несколько символов:');
   readln(X);
   writeln(X);
   writeln('Введите еще несколько символов:');
   readln(X,Y);
   writeln(X,Y);
   readln
end.