В массиве X обменять местами первый и последний четные элементы — Pascal(Паскаль)

uses crt;
const n=4;
var a: array[1..n] of integer; i,j: byte; c: integer; u1,u2: boolean;
begin
u1:=false;
u2:=false;
randomize;
clrscr;
 
writeln('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
end;
writeln(^j);
 
i:=0;
repeat
inc(i);
until not (odd(a[i])) or (i=n);
if not(odd(a[i])) then u1:=true;
 
j:=n+1;
repeat
dec(j);
until not (odd(a[j])) or (j=1);
if not (odd(a[j])) then u2:=true;
 
if (u1=true) and (u2=true) and (i<>j) then
begin
writeln('1-й чётный элемент = ',a[i],' и имеет индекс ',i);
writeln('последний чётный элемент = ',a[j],' и имеет индекс ',j,^j);
c:=a[i];
a[i]:=a[j];
a[j]:=c;
writeln('результат: ');
for i:=1 to n do
write(a[i]:3);
end
else if i=j then
writeln('в массиве только один чётный элемент')
else writeln('массив не содержит чётных элементов');
end.