Pascal/Turbo Pascal - Estoy haciendo un programa en turbopascal y tengo errores que no se arreglar

uses crt;

var

	resistencia:real;

{---------------------------------------------}

procedure vw_passat;

begin

	clrscr;

	writeln('SISTEMA DE INYECCION PARA VOLKSWAGEN PASSAT 1995');

	writeln('Programa hecho por.....');

	readkey;

	clrscr;

end;

{------------------------------------------------}

procedure comprobacion;

begin

	writeln('COMPROBACION BOMBA DE COMBUSTIBLE');

	writeln('Con un tester compruebe la resistencia interna de la boma de combustible');

	write('Por favor, ingrese el valor: ');

	readln(resistencia);

	if (resistencia >= 0.5) and (resistencia <= 2.5) then

		writeln('La resistencia esta dentro de los valores del fabricante')

	else

		writeln('Resistencia incorrecta, cambie la bomba de combustible');

	readkey;

end;

{------------------------------------------------}

begin

	vw_passat;

	comprobacion;

end.