Разработка программы для работы с файлом без типа

uses crt;
const max=9;
var f:file;
    k,i,imn:byte;
    a,mn:real;
begin
clrscr;
randomize;
repeat
write('Количество компонент от 1 до ',max,' k=');
readln(k);
until k in [1..max];
assign(f,'file');
rewrite(f,6);{6 - 6 байт, тип real}
for i:=1 to k do
 begin
  a:=20*random;
  blockwrite(f,a,1);
 end;
writeln('Содержание исходного файла F:');
reset(f,6);
blockread(f,mn,1);{читаем первый, пока он минимальный
                   1 - 1 блок=6 байт}
write(mn:0:2,' ');
imn:=0;
for i:=1 to k-1 do
begin
 blockread(f,a,1);{1 - 1 блок=6 байт}
 write(a:0:2,' ');
 if a<mn then
  begin
   mn:=a;
   imn:=i;
  end;
end;
writeln;
close(f);
writeln('Минимальный элемент=',mn:0:2);
reset(f,6);
seek(f,imn);{встаем в индекс мин.}
a:=0;
blockwrite(f,a,1);{пишем вместо него 0}
close(f);
writeln('Содержание измененного файла F:');
reset(f,6);
for i:=1 to k do
 begin
  blockread(f,a,1);
  write(a:0:2,' ');
 end;
close(f);
readln
end.