Заменить все элементы с четными номерами на из квадраты

Var a: array [0..9] of integer;
    i: integer;
begin
     for i := 0 to 9 do
          a[i] := random(50) + 1;
     for i := 0 to 9 do
         if (a[i] mod 2 = 0) then a[i] := sqr(a[i]);
end.