паскаль! Файлы!!!

[кусака]

помогите найти ошибку!!!

записать в файл N действительных чисел. найти максимум из модулей чисел стоящих на нечетных местах. не вычисляется максимум

 Const n=6;
   type cn=array[1..6] of real;
 var
    f: text;
    i:integer;
    q,q1,a2:cn;
    max:real;
 begin
  writeln('Vvedite 6 chicel');
  assign(f,'Angel.txt');
  rewrite(f);
 for i:=1 to n do
  begin
   read(q[i]);
   write(f,q[i]);
  end;
 close(f);
 reset(f);
 read(f,q1[i]);
     max:=q1[1];
 for i:=1 to n do
  begin
  a2[i]:=abs(q1[i+2]);
 if max<=a2[i] then max:=a2[i]
  end;
  close(f);
 writeln('max=',max);
end.

[Arigato]

for i:=1 to n do
begin
a2[i]:=abs(q1[i+2]);
if max<=a2[i] then max:=a2[i]
end;

Так Вы должны не с массивом работать, а читать элементы из самого файла.