Типизированные файлы. Чтение из типизированного файла целых чисел

var f:file of integer;
     a:integer;
.................................
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.

var f:file of integer;
     a:integer;
     nameF:String;
     begin
   nameF:='f.txt';
 {Открытие файла f для записи:}
 assign(f,nameF); rewrite(f);
  reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.

CONST n=10;
VAR f:file of integer;
    nameF:string;
    p,i:integer;
 
BEGIN
 nameF:='f.pas';
 clrscr;
 {Открытие файла f для записи:}
 assign(f,nameF); rewrite(f);
 {Запись в файл f введенных чисел }
 writeln('Введите массив из ',n,' целых чисел');
 for i:=1 to 5 do begin
   read(p); {чтение числа с клав-ры}
   write(f,p); {запись в файл f}
 end;
 close(f);
 end.

uses crt;
CONST n=10;
VAR f:file of integer;
    nameF:string;
    p,i:integer;
BEGIN
 nameF:='f.pas';
 clrscr;
 {Открытие файла f для записи:}
 assign(f,nameF); rewrite(f);
 {Запись в файл f введенных чисел }
 writeln('Введите массив из ',n,' целых чисел');
 for i:=1 to n do begin
   read(p); {чтение числа с клав-ры}
   write(f,p); {запись в файл f}
 end;
clrscr;
writeln('Содержание файла');
reset(f);
while not eof(f) do
 begin
  read(f,p);
  write(p,' ');
 end;
close(f);
 end.

for i:=1 to 5 do begin
   read(p); {чтение числа с клав-ры}
   write(f,p); {запись в файл f}
 end;