Записать числа в файл и считать из файла - PascalABC.NET

Формулировка задачи:

Есть массив наполненный числами. Выведем его. Теперь запишем в файл каждый элемент массива. Выведем содержание файла и кол-во элементов. Но бред, элементы (их знач) не совпадают.!

                    Листинг программы
                
 
                        
                          
                    
uses GRAPHABC;
VAR H: FILE OF INTeger;
P: ARRAY [0..11] of INTEGER;
f,u:integer;
BEGIN
ASSIGN(H,'OTRABOTKA');
REWRITE(H);
close(h);
FOR VAR I:=0 TO 11 DO
p[I]:=random(1,10);  //ZABOLNENIY MASSIVA
writeln(p);
for var i:=0 to 11 do begin    //ZAPOLNEN.   FILA
reset(h);
Seek(h,i); 
write(h,p[i]);
close(h);
end;
 
for var i:=1 to 11 do   VIVOD
begin
reset(h);
Seek(h,i); 
close(h); reset(h);
read(h,f);                //PREDPOLOGAEMOE MECTO OSHIBKI:wall::wall:
writeln(f);
close(h);
end;
 
writeln('KOLVO ILIMENTOV');
reset(h);
u:=FileSize(h);
write(u);
end.

// v chem bag ckashgite!!!

Решение задачи: «Записать числа в файл и считать из файла»

Листинг программы

uses GRAPHABC;
 
var
    H: file of integer;
    P: ARRAY [0..11] of integer;
    f: integer;
 
begin
    ASSIGN(H, 'OTRABOTKA');
    reset(H);        
    for var i := 0 to 11 do 
    begin
        p[I] := random(1, 10);  
        write(h, p[i]);
    end;   
    writeln(p);  
    for var i := 0 to 11 do 
    begin        
        Seek(h, i);         
        read(h, f);
        writeln(F);        
    end;
   writeln;     
    write(FileSize(h));
end.

Объяснение кода листинга программы

Объявлены переменные:
- H: файл типа integer, предназначенный для записи и чтения данных из файла;
- P: массив целых чисел размером от 0 до 11;
- f: целочисленная переменная.
Присваивается имя файлу H и он открывается для записи.
Запускается цикл от 0 до 11 элементов массива P.
Внутри цикла генерируется случайное число от 1 до 10 и записывается в файл H и в массив P.
Записывается содержимое массива P в файл H.
Запускается цикл от 0 до 11 элементов массива P.
Внутри цикла файл H перемещается к нужному элементу массива P с помощью функции Seek.
Из файла H считывается и записывается в переменную f целочисленное значение.
Запускается цикл от 0 до 11 элементов массива P.
Внутри цикла выводится на экран размер файла H.