Паскаль посимвольное чтение из командной строки (стандартной поток ввода) - первый символ из введённой строки -- пример кода

Чтобы читать только один символ из очередного введенного фрагмента (на деле это всегд будет 1-ый символ) используйте такое решение (читаем в переменную типа char, а не string, как например здесь):

Program FirstCharProg;
var // секция объявления переменных

   firstChar:  char; // сюда считаем последовательность символов

begin // тело программы
 
   Writeln('Введите последовательность: ');
   Readln(firstChar);  // cчитываем 1-ый символ
    
   Writeln(firstChar);
    
end.

В абс поскале программа для последовательности "fsdgfdag" отработает так:

Введите последовательность: 
fsdgfdag
f