Pascal/Turbo Pascal - ayuda operación con un vector

CONST

  maxelements = 10;

TYPE

    tvector = ARRAY [1..maxelements] of REAL;

VAR

 v:tvector;

 i: integer;

 multi: real;

BEGIN

 for i:= 1 TO maxelements do

    begin

      writeln('introduzca un numero',i':');

      readln(v[i]);

    end;

{Es esto lo que quieres}

uses

   crt;

CONST

  maxelements = 10;

  TYPE

    tvector = ARRAY [1..maxelements] of REAL;

  VAR

    v : tvector;

    i : integer;

  multi : real;

  BEGIN

   clrscr;

   multi := 1;

   for i:= 1 TO maxelements do

   begin

     write('introduzca un numero [',i,'] :');

     readln(v[i]);

     multi := multi * v[i];

   end;

    writeln('  El Producto Es : ',multi:0:2);

    readkey;

 end.