Дано пятизначное число,вывести на экран перевертыш. ,нужно блок-схему и программу. заранее !

Var i,x:integer;
s:string;
tmp:char;
begin
read(x);
s:=IntToStr(x);
for i:=1 to 5 do
write(length(s)-i+1);
end.

Нда. Я у мамы программист. С блок-схемой ничем не могу прости. По моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. Работает с числами любой размерности, не превышающей ограничения.