помогите отредактировать прогу

[finch]

задание!
элемменты заданого масива b(n) перепешите в новый масив a(n) в обратном порядке!
вот сама прога!

program g;
uses crt;
const
N=5;{размер массива}
var
a:array[1..N]of integer; {новыйый массив}
b:array[1..N]of integer=(1,2,3,4,5); {исходный массив}
i:integer;
begin
Writeln('Исходный массив:');
for i:=1 to N do
Write(b[i],' '); {выводим на экран исходный массив}
Writeln(' ');
Writeln('Новый массив наоборот:');
for i:= 1 to N do
begin
a[i]:=b[N-i+1];{здесь фишка программы: i-му элементу массива А присваиваем (N-i+1)-тый элемент Б}
write(a[i],' '); {вывод массива А, обратный Б}
end;
readln(i);
end.

но она чёто неработает! помогите найдите ошибку!

[Alex21]

Если ты хочешь работать со строкой, тогда вот этот код (проверял на консоли Delphi):

program Inversia;
{$APPTYPE CONSOLE}
var
   a:string; {Новая строка}
   b:string; {Исходная строка}
   i,n:integer;
begin
  Write('Введите исходную строку : ');
  ReadLn(b);
  N:=Length(b);
  a:=b;
   Write('  Новая строка наоборот : ');
for i:= 1 to N do
  begin
    a[i]:=b[N-i+1];
  end;
  write(a); {вывод строки А, обратной Б}
end.

[finch]

со страками работает! а так нет!plizz!!!!!!!помогите!

[Alex21]

program Project2;
{$APPTYPE CONSOLE}
const
N=5;{размер массива}
var
a:array[1..N]of integer;
b:array[1..N]of integer;
i:integer;
begin
for i:=1 to N do
  begin
   Write('Введите ',i,'-й/',N,' элемент массива : ');
   ReadLn(b[i]);
  end;
Writeln(' ');
Write(' Исходный массив : ');
for i:=1 to N do
Write(b[i]);
WriteLn(' ');
Writeln(' ');
Write(' Обратный массив : ');
for i:= 1 to N do
begin
a[i]:=b[N-i+1];
write(a[i]);
end;
end.