Сформировать файл, элементами которого являются массивы вещественных чисел, введенных с клавиатуры

const
  sizeMax=10;
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a,b:realArr;
  i,j,nComp,insertComp,arrSize:integer;
begin
  write('Kolichestvo komponent faila=');
  readln(nComp);
  repeat
    write('Razmer massiva-komponenty, ne bolee ',sizeMax,'=');
    readln(arrSize);
  until arrSize in [1..sizeMax];
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to nComp do
    begin
      writeln('Vvedite elementy ',i,' massiva-komponenty faila');
      for j:=1 to arrSize do
        begin
          write('[',j,']=');
          readln(a[j]);
        end;
      write(f,a);
    end;
  writeln('Soderhzanie ishodnogo faila');
  seek(f,0);
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to arrSize do
        write(a[j]:6:1);
    end;
  writeln;
  repeat
    write('Vvedite nomer komponenty dlya vstavki [0..',nComp-1,']=');
    readln(insertComp);
  until insertComp in [0..nComp-1];
  writeln('Vvedite znacheniya komponenty dlya vstavki');
  for j:=1 to arrSize do
    begin
      write('[',j,']=');
      readln(b[j]);
    end;
  for i:=filesize(f) downto insertComp+1 do
    begin
      seek(f,i-1);
      read(f,a);
      seek(f,i);
      write(f,a);
    end;
  seek(f,insertComp);
  write(f,b);
  seek(f,0);
  writeln('Soderzhimoe faila posle vstavki');
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to arrSize do
        write(a[j]:6:1);
    end;
  close(f);  
end.

const
  sizeMax=5;{количество элементов в массиве}
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a:realArr;
  i,j,nComp:integer;
begin
  write('Kolichestvo komponent faila=');
  readln(nComp);
  assign(f,'1.dat');
  rewrite(f);
  for i:=1 to nComp do
    begin
      writeln('Vvedite elementy ',i,' massiva-komponenty faila');
      for j:=1 to sizeMax do
        begin
          write('[',j,']=');
          readln(a[j]);
        end;
      write(f,a);
    end;
  writeln('Soderhzanie ishodnogo faila');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      for j:=1 to sizeMax do
        write(a[j]:6:1);
    end;
  close(f);
end.

const
  sizeMax=5;
type
  realArr=array[1..sizeMax] of real;
  fileRealArr=file of realArr;
var
  f:fileRealArr;
  a,b:realArr;
  i,insertComp:integer;
begin
  assign(f,'1.dat');
  reset(f);
  repeat
    write('Vvedite nomer komponenty dlya vstavki [0..',filesize(f)-1,']=');
    readln(insertComp);
  until insertComp in [0..filesize(f)-1];
  writeln('Vvedite znacheniya komponenty dlya vstavki');
  for i:=1 to sizeMax do
    begin
      write('[',i,']=');
      readln(b[i]);
    end;
  for i:=filesize(f) downto insertComp+1 do
      begin
        seek(f,i-1);
        read(f,a);
        seek(f,i);
        write(f,a);
      end;
    seek(f,insertComp);
    write(f,b);
  reset(f);
  writeln('Soderzhimoe faila posle vstavki');
  while not eof(f) do
    begin
      read(f,a);
      for i:=1 to sizeMax do
        write(a[i]:6:1);
    end;
  close(f);
end.