Ошибка в одной строчке(запись массива в поток)

[Crabobass]

идиотская проблема. Запись массива в поток...не могу понять почему не работает.

type
  massiv=array [1..5] of integer;
var
  fil:TFileStream;
  a,b,c:massiv;
  i:integer;
  str:string;
begin
    randomize;
   for i:=0 to 4 do
    begin
    a[i]:=random(20);
    b[i]:=random(20);
    c[i]:=a[i]+b[i];
    end;
    fil:= TFileStream.Create('D:\test.txt', fmCreate or fmOpenWrite);
    fil.Write(c[0], SizeOf(c[0])*Length(c));
    Fil.Free;
end;

fil.Write(c[0], SizeOf(c[0])*Length(c));

ошибка 100% здесь, но никак не соображу почему...Буду очень благодарен за обьяснение