linguagem c Código em Pascal, sorveteria. Laço de repetição não tá rodando.

[Larisse.b 0]

1.     Uma sorveteria vende 5 produtos diferentes, cada um com um preço, de acordo com a tabela abaixo:

Código	Produto	Preço (R$)
A	refrigerante	0,60
B	casquinha simples	1,00
C	casquinha dupla	1,20
D	sundae	1,50
E	banana split	2,00

 

Faça um programa que processe diversas vendas. O programa deverá apresentar um menu indicando os preços dos produtos. Cada venda efetuada pode ser composta por diversas unidades de diversos produtos. Os produtos são identificados através de seus códigos. A cada venda efetuada informar o preço a pagar. No final do dia o programa deverá emitir um relatório com as seguintes informações:

a)    número total de itens vendidos em cada produto;

b)    total pago para cada produto;

c)     total arrecadado (somando todos os produtos); e

d)    média de valor pago por pedido.

 

O que eu consegui fazer foi:

Program sorveteria;
var
cod,resp:string;
vendas,total_itens,total_vendido,total_pago,arrecadado,media,quanta,quantb,quantc,quantd,quante,ta,tb,tc,td,te:real;
Begin
  while resp='s' do
vendas:=vendas+1;
        writeln('A-refrigerante------0,60');
        writeln('B-casquinhasimples--1,00');
        writeln('C-casquinha dupla---1,20');
        writeln('D-sundae------------1,50');
        writeln('E-banana split------2,00');
        writeln('Informe a quantidade de produtos A comprados:');
        readln(quanta);
ta:=quanta*0.60;
  writeln('Informe a quantidade de produtos B comprados:');
  readln(quantb);
tb:=quantb*1;
    writeln('Informe a quantidade de produtos C comprados:');
    readln(quantc);
tc:=quantc*1.20;
    writeln('Informe a quantidade de produtos D comprados:');
    readln(quantd);
td:=quantd*2;
    writeln('Informe a quantidade de produtos E comprados:');
    readln(quante);
tb:=quante*1;
        writeln('Valor pago por produto:','A', ta:2:2);
        writeln('Valor pago por produto:','B', tb:2:2);
        writeln('Valor pago por produto:','C', tc:2:2);
        writeln('Valor pago por produto:','D', td:2:2);
        writeln('Valor pago por produto:','E', te:2:2);
        writeln('Total vendido de cada item:','A:',quanta:0:0);
        writeln('Total vendido de cada item:','B:',quantb:0:0);
        writeln('Total vendido de cada item:','C:',quantc:0:0);
        writeln('Total vendido de cada item:','D:',quantd:0:0);
        writeln('Total vendido de cada item:','E:',quante:0:0);
arrecadado:=(ta+tb+tc+td+te);
        writeln('O total arrecadado é:',arrecadado:2:2);
    writeln('Vendas:',vendas);
        writeln('Mais uma venda?');
        readln(resp);

readkey;
End.