Создать нетипизированный файл из 100 чисел и вывести k-ый элемент

Program Netipiz1;
Uses
  Crt;
Type
  FileType = file;
Var
  f : FileType;
  P, B, k : byte;
Begin
  ClrScr;
  assign(F, 'MyFile');
  rewrite(F,1);
  Randomize;
  for k := 1 to 100 do
    begin
      P := Random(100);
      blockwrite(F, P, 1);
    end;
  close(F);
  reset(F,1);
  for k := 1 to 100 do
    begin
      blockread(F, P, 1);
      write(p,' ');
    end;
  write('Введите номер нужного элемента ');
  readln(k);
  Seek(F, k-1);
  blockread(F, P, 1);
  writeln(k,'-ий элемент файла равен ', P);
  close(F);
End.

Program Netipiz1;
Uses
  Crt;
Type
  FileType = file;
procedure WriteFile(var f:FileType);
var k,p:byte;
begin
assign(F, 'MyFile');
rewrite(f,1);
randomize;
for k := 1 to 100 do
 begin
  p := random(100);
  blockwrite(f, p, 1);
 end;
close(F);
end;
procedure ReadFile(var f:FileType);
var p:byte;
begin
reset(F,1);
while not eof(f) do
 begin
  blockread(f, p, 1);
  write(p:4);
 end;
writeln;
close(f);
end;
procedure Poisk(var f:FileType;k:integer);
var p:byte;
begin
reset(f,1);
write('Введите номер нужного элемента ');
readln(k);
if k>filesize(f) then write('Элемента с таким номером в файле нет')
else
 begin
  seek(f, k-1);
  blockread(f, p, 1);
  writeln(k,'-ий элемент файла равен ', p);
 end;
close(f);
end;
Var
  f : FileType;
  k : byte;
Begin
  ClrScr;
  WriteFile(f);
  ReadFile(f);
  Poisk(f,k);
  readln
End.