Вывести первый символ строки - Pascal ABC

Формулировка задачи:

Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки. Входные данные: Выходные данные: В единственной строке входного потока дана строка символов, длина которой не превышает 255. В выходной поток вывести единственный символ. Пример входного файла (input.txt): KDSFJHGLKDJGHLSUIRH5HGUHG58HGLAHEJATI8... Пример выходного файла (output.txt): K Помогите найти ошибку у меня
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
End.

Код к задаче: «Вывести первый символ строки - Pascal ABC»

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.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы