помогите нужна программа на языке паскаля которая будет определять равнали 2 цифра с конца шести

program qwe;
var c:string;
i:integer;
begin
readln(c);
i:=length(c)-1;
if (c{i}='6')
then writeln ('Вторая цифра с конца равна 6')
else writeln ('Вторая цифра с конца не равна 6. Она равна ',i);
readln;
end.

вместо фигурных скобок пиши квадратные, а то тут сайт их не пропускает ((