В заданном числе поменять местами первую и последнюю цифры. Новое число разделить на 4 — Pascal(Паскаль)

program tmp;
uses crt;
var x,x1,code:integer;
st:string;
buf:char;
begin
clrscr;
readln(x);
str(x,st);
buf:=st[1];
st[1]:=st[length(st)];
st[length(st)]:=buf;
val(st,x1,code);
write(x1/4:4:2);
readkey;
end.