Программалық кодтары операторлар тізбегінің балама операторын анықта;X=5,Y=5,Z=5 Помагите и быстреи!

Const n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
 begin Write('Введите элемент' ,i,': '); Read(a[i]);
 end; 
 min:=a[1];
 for i:=1 to n do
 Begin 
 if a[i]<min then
 begin 
min:=a[i]; 
 end; 
end; 
Writeln('min:',min); 
  max:=a[1];
 for i:=1 to n do
 Begin 
If a[i]>max then 
 begin  max:=a[i]; 
end; 
 end; 
Writeln('max: ',max);  
summa := 0 ;  
  for i:=1 to n do 
begin
if (a[i] mod 2 = 0) then summa := summa + a[i] 
 end; 
  writeln('Сумма четных элементов равна : ', summa); 
  readln;
end.

Const n=10;
var A : Array [1..10] of integer;
i, mini,  maxi,  min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
 begin
min:=A[1];
If A[i]>max then
 begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
 begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
end.