Народ помогите!

[joi_lacosta]

Задачу я попытался решить,но что то не так:
вот условие:
Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.
Формат входных данных
Входной файл содержит целое трехзначное число 101<= N <=999. Гарантируется, что оно не будет иметь концевых нулей.
Формат выходных данных
Выходной файл должен содержать единственное число - ответ на задачу

вот мой код:

var n,a,b,c,m:integer;
w,h:text;
begin
assign(w,'input.txt');
assign(h,'output.txt');
reset(w);
rewrite(h);
readln(w,n);
a:=(n mod 100) mod 10;
b:=(n div 10) mod 10;
c:=n div 100;
m:=a*100+b*10+c;
writeln(h,m);
close(w);
close(h);
end.

в чём то ошибка))помогите

[northener]

Ошибок нет.
Для полного текста программы не хватает только начальной строки со служебным словом program, именем программы и завершающим ;

[Вадим Мошев]

Сообщение от northener

Для полного текста программы не хватает только начальной строки со служебным словом program, именем программы и завершающим ;

Но это необязательно

[northener]

Но это необязательно

Тоже верно.

[joi_lacosta]

Сообщение от northener

Ошибок нет.
Для полного текста программы не хватает только начальной строки со служебным словом program, именем программы и завершающим ;

а вот эта задачка правильно написана???
условие;
Дано натуральное трехзначное число N. Определить число, полученное перестановкой разрядов десятков и сотен исходного числа.
Формат входных данных
Входной файл содержит целое трехзначное число 100 \le N \le 999. Гарантируется, что в разряде десятков данного числа не нуль.
Формат выходных данных
Выходной файл должен содержать единственное число - ответ на задачу.
РЕШЕНИЕ;

var n,m,a,b,c:integer;
w,h:text;
begin
assign(w,'input.txt');
assign(h,'outuput.txt');
reset(w);
rewrite(h);
readln(w, n);
a:=n div 100;
b:=n mod 10;
c:=(n mod 100) div 10;
m:=a*100+b*10+c;
writeln(h, m);
close(w);
close(h);
end.