В одномерном массиве, состоящем из N вещественных элементов, вычислить

type mas=array[1..100] of integer;
procedure vvod1(var a:mas;n:integer);
var i:integer;
begin
writeln('Введите ',n,' целых чисел');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
end;
procedure vvod2(var a:mas;n:integer);
var i1,i2,i:integer;
begin
repeat
writeln('Введите диапазон чисел i1<i2');
readln(i1,i2);
until i1<i2;
for i:=1 to n do
a[i]:=i1+random(i2-i1+1);
end;
procedure print(a:mas;n:integer);
var i:integer;
begin
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
end;
function zero(a:mas;n:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[i]=0 then inc(k);
zero:=k;
end;
function summa(a:mas;n:integer):integer;
var i,imn,s:integer;
begin
imn:=1;
for i:=2 to n do
if a[i]<a[imn] then imn:=i;
writeln('Минимальный элемент=',a[imn],' его номер=',imn);
s:=0;
if imn<n then
for i:=imn+1 to n do
s:=s+a[i];
summa:=s;
end;
var a:mas;
    n,k:integer;
begin
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
repeat
writeln('Как задать массив');
writeln('1-вводом с клавиатуры');
writeln('2-случайными числами');
readln(k);
until k in[1,2];
case k of
1:vvod1(a,n);
2:vvod2(a,n);
end;
print(a,n);
writeln('Количество нолей=',zero(a,n));
writeln('Сумма после минимального=',summa(a,n));
end.