Создать типизированный файл и вывести его содержимое на экран

type rec= record
ch: string[15];
nom: string[11];
id: string[3];
end;
var
f: file of rec;
t:char;
i,c:rec;
 
begin
t:='y';
assign(f,'moy.txt');
rewrite(f);
repeat
with i do begin
writeln('Enter the name');
readln(ch);
writeln('Enter the number');
readln(nom);
writeln('Enter the id');
readln(id)
end;
write(f,i);
writeln('Would you like to enter another one?');
readln(t);
until t='n';
 
seek(f,1);
while not eof do begin
read(f,c);
write(c)
end;
close(f);
end.

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);
//kapolbenie
writeln(p);
for var i:=0 to 11 do begin
reset(h);
Seek(h,i); 
write(h,p[i]);
close(h);
end;
writeln(p);
for var i:=0 to 11 do 
begin
reset(h);
Seek(h,i); 
close(h); reset(h);
read(h,f);
writeLN(F);
close(h);
end;
writeLN(F);
writeln;
reset(h);
u:=FileSize(h);
write(u);
end.

   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.