Вычислить компоненты вектора В (b1,b2,…, bk) (k=9) по формуле bi=1/di, где компоненты вектора D задаются вводом. определить количество нулевых компонентов вектора D и задать их в векторе В также нулевыми элементами — Pascal(Паскаль)

Выходной формат:

нормиррование вектора по его минимальному элементу.
введите компоненты вектора D:
5 -1 0 6 3 2 -10 0

компоненты нормированного вектора:
0.20 -1.00 0.00 0.17 0.33 0.50 -0.10 0.00 0.25

количество равно 2

uses crt;
const n=9;
type masint=array[1..n] of integer;
     masreal=array[1..n] of real;
procedure NormVec(d:masint;var b:masreal);
var i,k:byte;
begin
writeln('Компоненты нормированного вектора:');
k:=0;
for i:=1 to n do
 begin
  if d[i]=0 then
   begin
    k:=k+1;
    b[i]:=0;
   end
  else b[i]:=1/d[i];
  write(b[i]:0:2,' ');
 end;
writeln;
writeln('Количество нулевых=',k);
writeln;
end;
 
var d:masint;
    b:masreal;
    i:byte;
begin
clrscr;
randomize;
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('d[',i,']=');
  readln(d[i]);
 end;
clrscr;
writeln('Компоненты вектора D:');
for i:=1 to n do
write(d[i],' ');
writeln;
writeln;
NormVec(d,b);
write('Нажмите Enter...');
readln;
writeln('Компоненты вектора D, случайные числа:');
for i:=1 to n do
 begin
  d[i]:=random(51)-25;
  write(d[i],' ');
 end;
writeln;
writeln;
writeln('Компоненты вектора D:');
for i:=1 to n do
write(d[i],' ');
writeln;
writeln;
NormVec(d,b);
write('Нажмите Enter...');
readln
end.