Ters yazmak için bunu bir dene bakalım

uses crt;
var
a:string;
b:byte;
begin
clrscr;
write('Mesajı giriniz');readln(a);
for b:=1 to length(a) do
begin
gotoxy(40-b,1);
write(copy(a,b,1));
end;
readln;
end.