Дан одномерный массив (50 элементов) случайных чисел в спектре от 10

program arr50;
var a: array [1..50] of integer;
nmax, nmin, sum, amax, amin:integer;

begin
nmax:=1; nmin:=1; // малого и наибольшего частей
amax:=0; amin:=50; //значения малого и наибольшего элементов

randomize;

for i:integer:=1 to 50 do
begin
a[i]:=random(41)+10;

if i mod 10 = 0 then writeln(a[i]:3) else write(a[i]:3);
sum:=sum+a[i];//сумма элементов

if a[i]gt;amax then //значение и максимального элемента
begin
amax:=a[i];nmax:=i;
end;

if a[i]lt;amin then //значение и наибольшего элемента
begin
amin:=a[i];nmin:=i;
end;

end;

writeln(Сумма = ,sum);
writeln(Среднее = , sum/50);
writeln( максимального элемента = , nmax);
writeln(Значение наибольшего элемента = , amax);
writeln( малого элемента = , nmin); 
writeln(Значение малого элемента = , amin);

end.