O que faz estes comandos

[DSR 0]

1º---

PROGRAM VETOR2;
{$R+}
USES winCRT;
CONST
max1= 25;
max2= 50;
TYPE
vetor12 = array [1..max1] OF REAL;
vetor3 = array [1..max2] OF REAL;
VAR
a,b: vetor12;
c : vetor3;
i,y,x:integer;
tecla:char;
Begin
repeat
clrscr;
gotoxy(5,2);
x:=4;
writeln ('entre com o valor dos elementos: ');
gotoxy(5,3);
writeln ('vetor 1 vetor 2');
for i:= 1 to 15 do
begin
gotoxy(5,x);
write ('a[',i,']= ');
read(a[i]);
inc(x);
end;
x:=4;
for i:= 1 to 15 do
begin
gotoxy(20,x);
write ('b[',i,']= ');
read(b[i]);
inc(x);
end;
for i:= 1 to 15 do
begin
c[i*2-1]:= a[i];
c[i*2] := b[i];
end;
gotoxy(5,20);
for i:= 1 to 30 do
write (c[i]:3:1, ' ');
gotoxy (18,25);
write ('deseja reprocessar? [s/n] ');
tecla:=upcase(readkey);
sound(100);   
delay(200);
sound(400);
delay(200);
nosound;
until tecla = 'n'
End.

Quando copilo este programa ele da erro neste comando Porquê?, desde já agradeço!

 

2º---

sound(100); delay(200); sound(400); delay(200);

nosound;

---

 

3º---

c : vetor3;

c[i*2-1]:= a;

c[i*2] := b;

end;

gotoxy(5,20);

for i:= 1 to 30 do

write (c:3:1, ‘ ‘);

gotoxy (18,25);

---

[scorpio 7]

Acho dificil alguém entrar aqui e dar algo de mastigado para você ou para qualquer um.

 

Dá uma olhadinha nesse link.

[quitZAUMMM 18]

Você criou 3 tópicos, os 3 tem praticamente as mesmas dúvidas, e não retornou em nenhum, estou mesclando os 3!

 

1º---

tente tirar o ponto e virugula ';' do comando nosound para ver se compila.

 

[]s

---

 

2º---

http://www.unimep.br...lio/mod1_3.html

---