Написать программу для создания файла из десяти записей и обработки созданного файла

type
  TPosition=record
    name: String[15];
    salary: Real;
  end;
var
  f: file of TPosition;
  p: TPosition;
  j: Integer;
  s: Real;
begin
  Assign(f,'position.dat'); {$I-}
  Reset(f);{$I+}
  j:=IOResult;
  if j=0 then begin
    WriteLn('Файл данных обнаружен. Использовать (0) или создать новый (1): ');
    ReadLn(j); if j<>0 then Close(f);
  end;
  if j<>0 then begin
    Rewrite(f);
    for j:=1 to 10 do with p do begin
      Str(j,name); name:='Должность '+name;
      salary:=10000.0+500.0*Random(100);
      Write(f,p);
    end; Close(f); Reset(f);
  end;
  s:=0; j:=0;
  while not EOF(f) do with p do begin
    Read(f,p); WriteLn(name:20,salary:10:2);
    s:=s+salary; Inc(j);
  end;
  WriteLn; WriteLn('Должности с окладом выше среднего ( ',s:0:2,' ):');
  Seek(f,0); s:=s/j;
  while not EOF(f) do with p do begin
    Read(f,p); if salary>s then WriteLn(name:20,salary:10:2);
  end;
  Close(f);
end.

type
  TPosition=record
    name: String[15];
    salary: Integer;
  end;
var
  f: file of TPosition;
  p: TPosition;
  j: Integer;
  s: Real;
begin
  Randomize;
  Assign(f,'position.dat'); {$I-}
  Reset(f);{$I+} j:=IOResult;
  if j=0 then begin
    WriteLn('Файл данных обнаружен. Использовать (0) или создать новый (1): ');
    ReadLn(j);
  end;
  if j<>0 then begin
    Rewrite(f);
    for j:=1 to 10 do with p do begin
      Str(j,name); name:='Должность '+name;
      salary:=10+Random(200);
      Write(f,p);
    end; Seek(f,0);
  end;
  s:=0; j:=0;
  while not EOF(f) do with p do begin
    Read(f,p); WriteLn(name,'':22-Length(name),salary:6);
    s:=s+salary; Inc(j);
  end;
  Seek(f,0); s:=s/j;
  WriteLn; WriteLn('Должности с окладом выше среднего ( ',s:0:1,' ):');
  while not EOF(f) do with p do begin
    Read(f,p); if salary>s then WriteLn(name,'':22-Length(name),salary:6);
  end;
  Close(f);
end.