Pascal/Turbo Pascal - AYUDA PROGRAMA+TIPOS DEFINIDOS POR EL USUARIO

Se lee la siguiente información de ventas de un supermercado: nº de venta, monto total, fecha, nombre del cajero, nº de cliente. Se lee información hasta que llega el nº de venta 789 la cual debe procesarse.

Informar:

a) La cantidad de ventas realizadas.

b) El promedio de ventas realizadas.

c) El nº de cliente y el nº de venta que tiene mayor monto total.


program super;
type
venta=record
numventa:integer;
mtotal:integer;
fecha:integer;
nomcajero:string[20];
nomcliente:string[20];
end;
var
v:venta;
cantv:integer;
prom:real;
BEGIN
leerReg(v);
while(v.numventa>789)do
....
...
...
END.
Procedure leerReg(var ven.venta); begin
read(ven.numventa);
if(ven.venta<>789)then
begin
read(ven.mtotal);
read(ven.fecha);
read(ven.nomcajero);
read(ven.nomcliente);
end;




ALGUEIN ME PUEDE GUIAR O AYUDARME PARA SEGUIR CON EL PROGRAMA!!
XQ LA VERDAD S EME COMPLICO JAJA.....MUCHISIMAS GRAX!!!!

Porq nadie me contesta? jaja
soy una principiante y necesito un empujoncito!!