Pascal - aiutoo!

program ciao;
uses crt, printer;
var
z:char;
n,i,s:integer;
a:array[1..100]of integer;
m:real;
begin
clrscr;
writeln;
writeln(inserisci il numero degli alunni che hanno fatto la verifica');
readln(n);
writeln('insrisci un voto');
readln(i);
for i:=1 to i<=n do
begin
writeln(a[i]);
end;
begin
s:s+a[i];
m:=s/n;
writeln('la media è:',m);
end;
if (z:='y') or (z:='Y') then
begin
writeln('vuoi mandare in stampa?');
readln(z,lst);
end;
if (z:='y') or (z:='Y') then
begin
writeln('vuoi stampare il valore della media?');
readln(z,lst,m);
end;
readln;
end.


quali sono gli errori che ho fatto?

Gli errori, purtroppo, sono molti!
faccio prima a correggerlo tutto.. dopo tu te lo studi e ci chiedi se non capisci qualcosa ok?

program ciao;
uses crt, printer;
var
z:char;
n,i,s:integer;
a:array[1..100]of integer;
m:real;
begin
clrscr;
writeln;
writeln(inserisci il numero degli alunni che hanno fatto la verifica');
readln(n);
for i:=1 to N do
begin
WRITE('INSERISCI IL VOTO DEL',N,' ALUNNO: ')
READLN(a[N]);
S:=S+A[N];
end;
m:=s/n;
writeln('la media è:',m);
WRITELN;
WRITELN('PREMI Y SE VUOI STAMPARE I RISULTATI...');
Z:=READKEY;
if (z='y') or (z='Y') then
BEGIN
FOR I:=1 TO N DO
BEGIN
WRITELN(LST,'VOTO ALUNNO NUMERO ',N,':');
WRITELN(lst,A[N]);
end;
WRITELN(LST,'MEDIA TOTALE:',M,'.');
END;
readln;
end.

ecco fatto... tutto quello che è maiuscolo è modificato. di solito sono contrario a questo tipo di correzzioni complete, ma è meglio che tu veda un codice e poi lo studi... guardati il for e gli if...

e la prossima volta fai 'NUOVO TOPIC' e non 'NUOVO SONDAGGIO'...

Ciao!