Вывести первый символ строки - Pascal ABC
Формулировка задачи:
Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки.
Входные данные: Выходные данные:
В единственной строке входного потока дана строка символов, длина которой не превышает 255.
В выходной поток вывести единственный символ.
Пример входного файла (input.txt):
KDSFJHGLKDJGHLSUIRH5HGUHG58HGLAHEJATI8...
Пример выходного файла (output.txt):
K
Помогите найти ошибку у меня
Решение задачи: «Вывести первый символ строки»
textual
Листинг программы
Var t: Text; s: String; Begin Assign(t, 'd:\input.txt'); Reset(t); Read(t, s); Close(t); Assign(t, 'd:\output.txt'); Rewrite(t); Write(t, s[1]); Close(t) End.