Разработка программы для работы с файлом без типа - Turbo Pascal - Ответ 1339961

uses crt;
const max=10;
var f:file;
    k,i:byte;
    a,n: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);
for i:=1 to k do
begin
 blockread(f,a,1);{1 - 1 блок=6 байт}
 write(a:0:2,' ');
end;
writeln;
close(f);
write('Введите вещественное число N=');
readln(n);
reset(f,6);
seek(f,k);{встаем в конец файла}
k:=k+1;{количество блоков увеличим}
blockwrite(f,n,1);
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.

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