Дано 12345 нужно вывести 54321, составил программу, сказали что не правильно

[Artemiyp]

Во входном файле находится одно целое неотрицательное число N (0<=N<=2000000000).

В выходной файл выведите перевернутое число N задом наперед.

Пример
in out
1 1
12 21
12345 54321
10 01

Вот составил программу, сказали что не работает:

program nazva;
var a,b : string; i:integer;
begin
assign(input, 'revert.in'); 
reset(input);
assign(output, 'revert.out'); 
rewrite(output);
read(a);
for i:=0 to length (a) do begin
b:=b+a[length(a)-i];
end;
write(b);
end.

Помогите, пожалуйста, разобраться что не так?

[vovk]

C Чего бы она работать то должна?
тогда уж так

program nazva;
var a,b : string; i:integer;
begin
assign(input, 'revert.in');
reset(input);
assign(output, 'revert.out');
rewrite(output);
read(input,a);
for i:=0 to length (a)-1 do begin
b:=b+a[length(a)-i];
end;
write(output,b);
close(input);
close(output);
end.

.

[Artemiyp]

Спасибо, оказалась, что ошибка была именно в цикле и правильно нужно было сделать, как вы указали "length (a)-1"

[iBuTTHead]

Зачем в цикле операторные скобки, если в теле цикла находится только один оператор.

[evg_m]

for i:=1 to length (a) do begin // в строке (a: string) нумерация как раз С ЕДИНИЦЫ.

[vovk]

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

for i:=1 to length (a) do begin // в строке (a: string) нумерация как раз С ЕДИНИЦЫ.

Да нумерация строки с 1, но i используется не как идентификатор номера, а как переменная участвующая в рассчёте идентификатора

a[length(a)-i]

так что всё правильно.

ЗЫ Другое дело, что цикл можно было организовать подругому, к примеру for ... downto .... do чтоб облегчить чтение , но это не принципиально.