Programação em Pascal...

[Lucky Girl]

Olá, pessoal!

Meu professor passou um trabalho para fazermos, bem na verdade ele é mais como um desafio já que ainda estou aprendendo portugol, gostaria que alguém ajudasse achar o erro nesse programa.

Program hotel;

USES CRT;

var

{Declaração de variáveis}

nome:array[1..200] of string;

diaria,qntdia,apart:array[1..200] of integer;

i:integer;

receita:real;

Begin

ClrScr;

{//Apaga a tela}

diaria:=300;

qntdia:=0;

for i:=1 to 200 do begin

TextBackGround (7);

TextColor (black);

writeln ('Digite o nome do cliente');

readln (nome);

writeln ('Digite o número do apartamento');

readln (apart);

writeln ('Digite a quantidade de diárias');

readln (qntdia);

if (qntdia<10) then

begin

diaria:= (diaria*qntdia)+20;

end;

if (qntdia=10) then

begin

diaria:= (diaria*qntdia)+14

else

diaria:= (diaria*qntdia)+12;

end;

writeln ('Cliente', nome, 'apartamento', apart);

writeln ('Deverá pagar:R$', diaria);

writeln ('A receita total do hotel é:');

receita:= (diaria+diaria);

writeln ('receita');

writeln('Obrigado por usar os nossos serviços!');

readkey end.

[dontpanic]

diaria:=300;

qntdia:=0;

Acho que o compilador não tem como saber o valor de i ainda nessa parte.

http://forum.clubedohardware.com.br/tags-code-como/709848