[qazxcdews]

Дано целое положительное число. Вывести набор символов, содержащий цифры этого числа в обратном порядке.

[TOJluK]

И что именно не выходит?

[qazxcdews]

Составить программу.

[NIch]

Как то так...
Кинь на форму Button1, Edit1 и Edit2...в событии OnButtonClick напиши...

Код:

var
 S, S1: string;
 i: word;
begin
 S := Edit1.Text;
 S1 := '';
 for i := Length(S)-1  downto 0 do
  S1 := S1 + S[i];
 Edit2.Text := S1;
end;