Дан массив. Поменять местами нечётные и следующие за ними чётные элементы массива — Pascal(Паскаль)

var
a:array[1..100]of integer;
i,n,t:integer;
begin
write('kol-vo elementov=');
readln(n);
randomize;
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:5);
end;
writeln;
for i:=2 to n do
if (a[i] mod 2=0 )and(a[i-1] mod 2<>0)then begin
t:=a[i];
a[i]:=a[i-1];
a[i-1]:=t;
end;
writeln('novyj massiv');
for i:=1 to n do
begin
write(a[i]:5);
end;
readln;
end.