Срочно помогите !!!

Ну вроде как-то так
1.
x=6, y=17
2.
1275
3.
var s:string;
s1:char;
begin
writeln('Введите трехзначное число');
readln(s);
s1:=s[3];
s[3]:=s[2];
s[2]:=s1;
writeln(s);
end.