Дано четырехзначное естественное число A. Какое число получится, если в нем

Var  n, a1, a2, a3, a4: integer;
begin
  repeat
    writeln('Введите четырёхзначное число:');
    readln(n);
    if (n lt; 1000) or (n gt; 9999) then writeln('Ошибка');
  until (n gt;= 1000) and (n lt;= 9999);
  a4 := n mod 10;
  a3 := n div 10 mod 10;
  a2 := n div 100 mod 10;
  a1 := n div 1000;
  n := a1 * 1000 + a4 * 100 + a3 * 10 + a2;
  writeln(n)
end.