Ajuda - Exercício de pascal

[Talleyrand]

Bom to com ma dificuldade de fazer esse algoritmo aqui

se algué puder me ajudar.. valeu acho que to com algum erro em sitaxe mas não to vendo onde!

valeu

ah e outra coisa como eu poderia fazer para finalizar o programa dá a opção de um comando para o usuário pra ele finalizar?

valeu²

Desejamos efetuar uma análise estatística a respeito dos livros vendidos por uma livraria 
em um determinado mês. Para cada livro são fornecidas as seguintes informações: título 
do livro, tipo (F=Ficção / N=Não-Ficção / T= Técnico-Científico), preço unitário de venda 
e quantidade de exemplares vendidos no mês. 
Elabore um algoritmo em   que leia as informações sobre os livros e ao final, mostre o 
seguinte relatório: 
a) quantidade de exemplares de cada tipo tipo (Ficção, Não-Ficção, Técnico-Científico) 
vendidos no mês; 
 média de preços de venda de livros por tipo; 

o programa...

solução 1
algoritmo "semnome"
// Função :
// Autor :
// Data : 9/4/2011
// Seção de Declarações
var
tipo,nome:caracter
contf,contnf,conttc,somaf,somanf,somatc:inteiro
precof,preconf,precotc:real
inicio
somaf<-0
somaf<-0
somatc<-0
escreva("Digite o nome do livro: ")
leia(nome)
escreval("Digite o tipo do livro.")
escreva("(ficição=f; não-ficição=nf; tecnico-cientifico=tc): ")
leia(tipo)
enquanto( (tipo="f") ou (tipo="nf") ou (tipo="tc"))faca
   se (tipo="f") então
      contf<-contf+1
      escreva("Digite o preço do livro:")
      leia(precof)
      somaf<-somaf+precof
   senao
      se (tipo="nf")então
         contnf<-contnf+1
         escreva("Digite o preço do livro: ")
         leia(preconf)
         somanf<-somanf+preconf
      senao
         conttc<-conttc+1
         escreva("Digite o preço do livro: ")
         leia(precotc)
         somatc<-somatc+precotc
      fimse
   fimse
   escreva("Digite o nome do livro: ")
   leia(nome)
   escreva("Digite o tipo do livro.")
   leia(tipo)
fimenquanto
escreval(contf," livros cientificos, ",contnf," livros não-cientifícos e ",conttc," livros tecnicos-cientificos")
escreva("Os livros de ficção custam em  média ",somaf/contf,)
escreva("; os livros de não ficção custem em média ",somanf/contnf,)
escreva(" e os livros tecnicos-cientificos custem em média ",somatc/conttc)
fimalgoritmo

[Talleyrand]

alguém...?!