Чтобы читать только один символ из очередного введенного фрагмента (на деле это всегд будет 1-ый символ) используйте такое решение (читаем в переменную типа char, а не string, как например здесь):
Program FirstCharProg;
var // секция объявления переменных
firstChar: char; // сюда считаем последовательность символов
begin // тело программы
Writeln('Введите последовательность: ');
Readln(firstChar); // cчитываем 1-ый символ
Writeln(firstChar);
end.
