составте программку, которая заполняет массив а [ 1..10] случайными целыми числами

Var  a: array [1..10] of integer; 
 i, max: integer; 
begin 
max:= 0; 
write('Исходный массив:  ');
for i:= 1 to 10 do 
begin 
a[i]:= random(10); 
write(a[i], '  '); 
if (i mod 2 = 0) and (a[i] gt; max) then 
max:= a[i]; 
end; 
writeln; 
 writeln('Наибольший элемент массива посреди частей с четными индексами: ', max);
end.