Help! помогите перевисти из delphi на раскаль

[finch]

вот программа
var
a:array[1..5];
b:array[1..5];
i,z.p:=6;
for i:=1 to 5 do begin
a[i]:=strtoint(stringGrid1.cells[i-1,0]);
z:=p-i;
b[z]:=a[i];
end;
for i:=1 to 5 do
ladel1.caption:=label1.caption+''+I ntTostr(b[i]);
label1.caption:=label1.caption;
end;
end.

[Alex21]

Да, вот так:

const
N=5;
var
a,b:array[1..N] of integer;
z,p,i:integer;
begin
i:=N+1;
z:=N+1;
p:=N+1;
Writeln('Введите через пребел ',N,' чисел');
   for i:=1 to N do
 begin
    Read(a[i]); {вводим через пробел}
     z:=p-i;
     b[z]:=a[i];
  end;
for i:=1 to N do
Write(' ',(b[i]));
end.

[finch]

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

[Jeni]

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

вот программа...

Интересно, как вообще могла работать эта программа?

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

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

Можно так

for i := 1 to 5 do
  a[i] := b[6 - i];

[Alex21]

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

дружище она неработает

Очень даже и работает!!!

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

Можно так

for i := 1 to 5 do
  a[i] := b[6 - i];

b<->a не повторяйте о4епятки автора вопроса.

P.S.:
Понимаю, что грамотнее будет

b[i]:=a[N+1-i];

но делаем как просят, сохраняя исходные данные ))