Почему не работает программа?

[forged]

1)Дана строка. Вывести строку, содержащая те же символы в обратном порядке.
'abcdgh' -----> 'hgdcba'
Вот мой код но почему он не работает?

program abc;
uses crt;
var
a,b,c:string;
s,h:integer;

BEGIN
clrscr;
Readln(a);
for s:=1 to length(a) do
begin
while (length(a)=1) do
begin
h:=length(a)-1;
Delete (a,1,h);
write(a);

end;
end;

readln;
END.

[evg_m]

Я изучил оператор While

потому что условие while ложно и операторы внутри оного не выполняются, а в цикле for никаких действий отличных от while begin ... end не предусмотрено.