Lab.Algoritma.Program Membalik Nama

Program Balik Nama
uses crt;
var
nama,hasil,pos:string;
i:integer;
begin
clrscr;
hasil:= '';
write ('Nama        :');readln(nama);
for i := length (nama) downto 1 do
begin
pos:=copy (nama,i,1);
hasil:= hasil+pos;
end;
write('Dibalik menjadi     :',hasil);
readln;
end.