Pascal/Turbo Pascal - 2 propuesta al arreglo de registro con menu

procedure reporteventas;

  begin

     clrscr;

     writeln('**** Reporte De Ventas Por Vendedor ****');

     writeln;

     for t := 1 to cont do

     begin

     write('  ',datosvend[t].CodVendedor,'  Venta Realizada : ');

     readln(datosvend[t].VentaReal);

     if datosvend[t].VentaReal > datosvend[t].ObjetVenta then

     begin

        bonifi[t] := (datosvend[t].VentaReal - datosvend[t].ObjetVenta) *  {A qui}

                                               datosvend[t].FactBonific;

     end;

   end;

  end;