Последний символ ? Опции

[{ Guest }]

HI !

У меня такая проблема :

"Напишите программу, присваивающую переменной Char последний символ введенной строки. "

Я думаю , что это надо делать так, Прочитать строку , узнать количество символов.....
Но как вывести именно последний ? Первый понятно как, а вот поледний ?
Возможно ли пустить цикл

For I:=1 to Length(S) do ;

И как из этого значения взять последний символ ? С:=S[ Последний символ];

[GLuk]

Зачем ты так SKVOZNJAK?? :D Это же жестоко!!

Код

Program ArrayWithoutZero;
Uses
    Crt;
Const
     S = 'The last char is D';
Function GetLastChar(S:String):Char;
begin
     GetLastChar:=S[Length(S)];
end;
Begin
     ClrScr;
     Write(GetLastChar(S));
End.