Pascal masyvas cikle

Sveiki, bandau perprasti pascali ir bandydamas isiaiiskinti masyvus susiduriau su problema, programa susikompiliuoja, bet ivedus x reiksme ismeta klaida :Range overrun;

Stai mano kodas:

program Noname0;
type masyvas = array[1..5] of integer;
var mass:masyvas;
   x,i:integer;
begin
   Read(x);
   for i:=0 to 5 do
   begin
       mass[i]:=random(x);
   end;
   Write(mass[i]);
   readln;
end.

Gal kas paaiskintu ka sita klaida reiskia, kompiuteris nesupranta ka parasiau ar cia prigrybinau?

array tik 1..5, o for cikle pradedi įrašinėti ir į 0 reikšmę, kurios tavo masyvas neturi