Boa noite estou com um problema no pascal

Boa noite meu problema é '$' que sempre da na ultima linha esta ai o codigo

	Program Pzim ;

	var nome:string;

	        sangue:string;

	        idade:integer;

	Begin

	writeln('Escreva seu nome aqui ');

	read(nome);

	writeln('Digite sua idade ');

	read(idade);

	writeln('Digite seu tipo sanguineo ');

	read(sangue);

	if sangue=Apositivo then

	write('Você ',nome,'tem);

	End.