задача в Паскале ввод и вывод данных (массивы)

[riml9inin]

Дан файл f, компонентами которого являются массивы действительных чисел a1,..,a15, подсчитать для каждого массива число положительных элементов в нем и поместить каждое из этих чисел в файл g.

[riml9inin]

Начинал делать, в итоге задача выполняется, но не заносит данные в файл g. Если кто знает дайте совет или направьте на решение и еще в этой задаче нужно использовать одномерный или двумерный(n) массив?

var
a:array [1..15] of real;
f,g: text;
i,n:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'uotput.txt');
rewrite(g); {apped(g);}
for i:=1 to n do read(f,a[i],a[i+1]);
if a[i]>0 then write(g,a[i]) else read(f,a[i+1]);
close(f);
close(g);
end.

[svkpro]

когда то нам давали как пример работы с фалом:

Program File_text;
 var
 f1 : text;
 st : string;
 n: byte;
 begin
 assign   (f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }  
 rewrite  (f1); { создать новый файл  с именем file1.txt }
 writeln ( f1, 'Очень полезно изучать'); { записать предложения в файл}
 writeln ( f1, ' всем  студентам ');
 writeln (f1, ' язык  Pascal ');
 close (f1);    { закрыть файл для записи }
 reset (f1); { открыть файл для чтения }
 while not eof (f1) do { пока не конец файла  f1}
 begin
 readln (f1, st);    {читаем строку из файла f1 }
 writeln(st);         { выводим на экран }
 n:= length (st);     {определяем длину строки }
 writeln ('  длина =',n);
 end;
 close (f1); { закрыть файл  для чтения}
 end .

только обратите внимания что тут работа с текстом, а у вас с числами.

[riml9inin]

Спс большое, взял на заметку.