вывод последнго символа строки

[Paulsan]

Покажите где ошибка, т.к. выводит последний символ только если он чётный.
Program N2;
uses crt;
var
s:string;
count:byte;
begin
writeln ('введите строку');
readln (s);
for count:=1 to length(s) do
inc(count);
writeln (s[count]);
writeln;
end.

[Пепел Феникса]

Program N2;
var s:string;
begin
writeln('введите строку');
readln(s);
writeln(s[length(s)]);
readln;
end.

и все.

[Paulsan]

спасибо, как всё логично оказывается

[xrob]

for count:=1 to length(s) do
inc(count);

как я понимаю, переменная count актуальна только для цикла.
после завершения цикла for на удаляется.
потому и не работает приведенный код.