Задание в Паскале. Дана строка, найти 3 символ

Program Task;Var s: String;Begin    WriteLn('Введите строку');    ReadLn(s);    WriteLn('Третий символ: ', s[3]);    ReadLn;End.