Пожалуйста помогите как создать простинкую програму.

Зависит от пройденных тем
вот так если задано число в текстовом виде
http://ideone.com/SoLiqv

program ideone;
var
x : string;
i : integer;
begin
readln(x);
for i:=Length(x) downto 1 do Write(x[i]);
end.

Если же число задано в типе integer, то здесь на ответах по поиску ищите или в нете, задача часто бывает

Вот выбирайте себе в Википедии
Примеры программы на различных языках — нажмите „[показать] “

Написал на PHP, в паскаль сам переведёшь
<?= strrev($_GET['number']);

function Count(x: integer): byte;
begin
var k := 0;
while x <> 0 do
begin
x := x div 10;
k += 1;
end;
result := k - 1;
end;

begin
var x := ReadLnInteger('Введите число X:');
var y := 0;
var i := Count(x);
while x <> 0 do
begin
y += x mod 10 * Round(Power(10, i));
x := x div 10;
i -= 1;
end;
x := y;
WriteLn('Результат: ', x);
end.

int n;
cin >> n;
do
{
cout << n % 10; // остаток от деления на 10 - разряд единиц
}
while (n /= 10); // делить на десять пока не останется ноль

или

char str[5]; // массив под 4 символа и 1 символ конца строки
cin >> str;
for (int i = 0; i <= 3; ++i) // индексы в с++ идут с нуля
cout << str[3 - i];