[PASCAL] problema con for e array

[mondobimbi]

sembrerebbe giusto, prova a fare un paste di questo (che ho compilato con fpc

program prova;

var
  risultato : array[1 .. 999] of real;
  n, x : integer;
  sum : real;
  
begin
x := 4;
sum := 0;

for n:=1 to x do begin
writeln('Inserisci il valore');
readln(risultato[n]);
sum := sum + risultato[n];
{risultato è un array definito inizialmente con risultato:array[1..999] of real}
end;
writeln(sum);
end. 

ciao
sergio