Создать типизированный файл, который содержит несколько целых чисел, после чего вывести эти целые числа из типизированного файла на экран монитора по одному байту — Pascal(Паскаль)

uses crt;var f1:file of byte;f2:file;a,i,j:byte;
begin clrscr;assign(f1,'help_65.dat');rewrite(f1);
write('Count of Numbers: ');readln(j);
for i:=1 to j do begin write('Your Number #',i,' : ');readln(a);
write(f1,a);end;close(f1);writeln('Files were written in the file:');
assign(f2,'help_65.dat');reset(f2,1);
for i:=1 to j do begin BlockRead(f2,a,1);
writeln('Number #',i,' : ',a);end;close(f2);readkey;end.