Впаскале написать программу которая будет переворачивать число! (например: 16 перевернет и будет 61) нужно! !

Var s1,s2:string;
i:integer;
begin
readln(s1);
s2:=s1;
for i:=1 to length(s1) div 2 do
begins1[i]:=s2[length(s1)+1-i];
s1[length(s1)+1-i]:=s2[i];
end;
writeln(s1);
end.