Ввести с клавиатуры пятизначное число, вывести его в обратном порядке. (48765 -> 56784) паскаль

Program z25;  Var  i, j, l, b:integer; n:string;Begin  write('Введите число - '); readln(n);  l:= n.Length;  b:= l;  for i:=1 to l div 2 do  begin    swap(n[i], n[b]);    b:= b - i;  end;  writeln(n);End.