Дано пятизначное число. на экран вывести число, записанное цифрами в обратном порядке

Вам вряд ли задали так сделать, но всё же.
var a,b:integer;
d:string; 
begin   
writeln (' введи число');   
 readln(b);   
Str (b, d);     
for a:=length(d) downto 1 do begin     
 write(d[a]);
    end; 
writeln('');
end.

лучше так напиши.
var a,b,c:integer;
begin
write('введите число=> ');
readln(a);
write('обратное число=> ');
while (a<>0) do begin
b:=a mod 10;
write(b);
a:=a div 10;
end;
end.