Разработать программу, позволяющую произвести нахождение в массиве минимального элемента и определение, насколько он меньше среднего арифметического — Pascal(Паскаль)

const n=10;
var
a:array[1..n] of integer;
min,i,sum:integer;
s_a,r:real;
begin 
for i:=1 to n do
 begin
    a[i]:=random(100);
    write(' ',a[i]);
 end;
writeln();

min:=a[i]; sum:=0;
for i:=1 to n do 
begin
if a[i]<min then min:=a[i];
sum:=sum+a[i];
end;
s_a:=sum/n;
r:=s_a-min;
writeln('min= ', min);
writeln('min<s_a na ', r);
end.