Составить программу. дано 3-х значное число.равны ли его 1-я и 3-я цифра?

Program p1; 

Var a: string; 

Begin 
Writeln('Введите трёхзначное число'); 
Read(a); 

If Integer.Parse(a[1])=Integer.Parse(a[3]) then 
Writeln('Равны') 
Else 
Writeln('Не равны'); 
End.