Pascal/Turbo Pascal - ayuda que le falta a mi codigo en pascal

Program Valdolar;
Uses Crt;
Var
Dia: Integer;
Var
VD9Am, VD1Pm, PromDol : Real;
Begin
Clrscr;
Writeln ('Ingrese Valor del Dólar 9 am:');
Readln (VD9am);
Writeln('Ingrese Valor del Dólar 1 pm:');
Readln (VD1Pm);
PromDol := (VD9Am+VD1Pm)/2
Writeln ('EL Promedio del Días es:');
Readln;
If PromDol<VD1Pm Then
Write('el valor del dolar bajo: VD1Pm Bolivares');
Else
Writeln('el valor del dolar subio');
End.

Tienes dos sentencias Var, quita una.