Pascal, массивы, задачка. помогите разобраться

Question

Есть действительные числа а1, а2, а3 ...а18. Получить а1, а10, а2, а11, ..а9, а18.
мой код:

var mass: array [1 .. 18] of integer;
 massResult: array[1 .. 18] of integer;
 i, j: integer;

begin
 for i:=1 to 18 do // заполняем массив mass
 mass[i]:=i;

for i:=1 to 18 do // заполняем массив massResult
 begin
 if i mod 2 =0 then
 begin
 massResult[i] := mass[i+8];
 massResult[i+1]:=mass[i];

end;
 else
 massResult[i] := mass[i];
 writeln(massResult[i]);
 end;
end.

=======================================

Вывод:

1

10

3

12

5

14

7

16

9

18

11

10

13

12

15

14

17

16

не могу найти ошибку, может есть решение попроще?

Олег · Accepted Answer

Массивы mass и massResult надо описать как real

mass заполнять не числами 1,2,3,...а теми числами типа real, которые вам дадут - или задать самим, но не обязательно 1,2,3,...

Эрик · Answer

Никаких остатков от деления не нужно. За каждую итерацию цикла надо заполнять 2 значения. Например, так:

j:=1;
for i:=1 to 9 do begin
massResult[j]:=mass[i];
massResult[j+1]:=mass[i+9];
j:=j+2
end;