Myks

Bom gente...eu postei um topico antes falando do programa em pascal...que o bloco principal num tava dano certo..Agora...o problema ta so no CASE...sera q alguem sabe pq?? Ta dizendo "erro...CASE nao esperado"...

program Ilustra_tipo_record_variante;

const ESPACO = #32;

type tipo_cliente = (fisico,juridico);
reg_de_nome = record
nome:string [30];
endereco:string [7];
telefone:string[10];
end;

reg_cliente = record
endereco1:string [40];
cidade:string [20];
estado:string [2];
cep:string [8];
telefone1:string [10];
case tipo (pess_juridica,pess_fisica) of
pess_juridica: (razao_social:string [40], contato:string[30]);
pess_fisica: (nome=reg_de_nome);
end;
end;

var pj:reg_cliente;
pf:reg_de_nome;
op:char;

begin

writeln ('Classifique o cliente como pessoa juridica ou fisica (j/f): ');
readln (op);
if (op='j')
begin
writeln('Informe a razao social: ');
readln(pj.razao_social);
writeln('Informe o nome de uma pessoa para contato: ');
readln(pj.contato);
writeln('Informe o endereco: ');
readln(pj.endereco1);
writeln('Informe a cidade: ');
readln(pj.cidade);
writeln('Informe o Estado: ');
readln(pj.estado);
writeln('Informe o CEP: ');
readln(pj.cep);
writeln('Informe o numero do telefone: ');
readln(pj.telefone1);
end;
else if (op='f');
begin
writeln('Informe o nome do cliente: ');
readln(pf.nome);
writeln('Informe o endereco: ');
readln(pf.endereco);
writeln('Informe o numero do telefone: ');
readln(pf.telefone);
end;
end;

Olá. Bom...estou aki com um programa pra fazer em pascal. Tenho q usar união discriminada (quando vc tem variavel discriminante. Por exemplo, casado...solteiro...situacoes q vc so pode ser um ou outro). Então, a parte que tem q montar a discriminação, que é feita com "record" e "case" ja foi feito...agora...não está dando certo a parte d montar o bloco principal do programa. Será que alguem sabe como fazer?! Necessito urgente!!! Desde já obrigada.

program Ilustra_tipo_record_variante;

const ESPACO = #32;

type reg_de_nome = record
sobrenome:string [15];
primeiro_nome:string [15];
titulo:string [7];
end;

type reg_cliente = record
endereco1:string [40];
endereco2:string [40];
cidade:string [20];
estado:string [2];
cep:string [5];
telefone:record
ddd:string [4];
numero:string [8];
end;
case pess_juridica: boolean of
TRUE: (razao_social:string [40];
contato:string [30]);
FALSE: (nome:reg_de_nome);
end;
var dados_cliente:reg_cliente;