Найти наибольший элемент среди элементов массива с четным порядковым номером

Const n=20;
Var A : array [1..n] of integer;
    i, max : integer;
begin
Randomize;
For i:=1 to n do A[i]:=random(100);
For i:=1 to n do Write(A[i]:4);
Writeln;
max:=A[2];
i:=4;
while (i<=n) do
      begin
      If (A[i]>max) then max:=A[i];
      i:=i+2;
      end;
Writeln(max);
Readln;
end.

const n=10;
type mas=array[1..n]of byte;
var a:mas;
procedure v_mas(var x:mas);
var i:byte;
begin
 for i:=1 to n do x[i]:=1+random(3);
end;
procedure viv_mas(x:mas;s:string);
var i:byte;
begin
 writeln(s);for i:=1 to n do write(x[i]:3);writeln;
end;
procedure sort(var x:mas);
var i,j,tmp:byte;
begin
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if (a[j]=3) or ((a[j]<a[j+1])and(a[j+1]<>3)) 
    then begin tmp:=a[j];a[j]:=a[j+1];a[j+1]:=tmp end
end;
begin
 v_mas(a);
 viv_mas(a,'исходный:');
 sort(a);
 viv_mas(a,'полученный:')
end.