Решите пожалуйста! Ничего не разумею! Важно: программка обязана работать!

1. program task31101446;
2. var
3.  arr: array of integer;
4.  Sum, n, number: integer;
5. begin
6.  Writeln('СКОЛЬКО ЧИСЕЛ? (n): ');
7.  Readln(n);
8.  SetLength(arr, n);
9.  Writeln(Chr(10), '2 И 4 ЗАДАНИЯ');
10.  for var i := 0 to (n-1) do
11.    begin
12.      Read(arr[i]);
13.      Sum := Sum + arr[i];
14.      if arr[i] mod 2 = 0 then
15.        Writeln('ЧЁТНОЕ ЧИСЛО - ', arr[i]);        
16.    end;
17.  Writeln(Chr(10), '3 ЗАДАНИЕ');
18.  for var i := 0 to (n-1) do
19.    if i mod 2 = 0 then
20.      Writeln(arr[i], ' СТОИТ НА ', i, ' МЕСТЕ');  
21.  Writeln(Chr(10), '1 ЗАДАНИЕ');
22.  while n lt;gt; 0 do
23.    begin
24.      Writeln(arr[(n-1)]);
25.      Dec(n);
26.    end;
27. end.

Не желал плодить программы, потому всё совместил в одной. Задания идут не по порядку.

JavaScript.

Если что-то не понятно - спрашивай.