Problemas con un else
Publicado por Maxi (3 intervenciones) el 02/04/2015 17:49:16
Por favor que alguien me diga que mierda esta mal porque me tiene re podrido con el Syntax error, ; expected but ELSE found y no logro ver el error..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure Crear(var data:arch);
var
nombre:string[20];
corte:boolean;reg:archivo;begin
corte:=true;
writeln('Ingrese un nombre para el nuevo Archivo:');
read(nombre);
assign(data, nombre);
rewrite(data);
writeln('Ingrese los datos de la persona');
while (corte=true) do begin<----------------------------------------
write('Ingrese apellido:');
readln(reg.apellido);
if (reg.apellido<>'nulo')then
write('Ingrese nombre:');
readln(reg.nombre);
write('Ingrese fecha con formato aaaammdd:');
readln(reg.fecha);
write(data,reg);
else <-----------------------------------------------------------------
corte:=false;
end;
end;
close(data);
end;
Valora esta pregunta
0