program wade;
uses wincrt;
var enter : array[1..100] of char;
i,d : integer;
begin
i :=0;
writeln('enter a sequence of characters terminated by !');
repeat
 i := i+1;
 read(enter[i]);
until (enter[i] = '!');
repeat
 i:= i-1;
    write('the sequence in reverse order is : ',enter[i]);
until(i=1);
end.

    Source: geocities.com/hk/wade2000hk

               ( geocities.com/hk)