Каждую компоненту в файле большую 7 умножить на результат целочисленного деления этой компоненты на 7 - Pascal ABC

const n = 10;
 
procedure FromFile(path: string);
var f: file of integer;
    x: integer;
begin
  assign(f, path);
  reset(f);
  while not eof(f) do begin
    read(f, x);
    write(x, ' ');
  end;
  writeln;
  close(f);
end;
 
procedure RewriteFile(path: string);
var f: file of integer;
    x, i: integer;
    a: array [1..n] of integer;
begin
  assign(f, path);
  reset(f);
  for i := 1 to n do read(f, a[i]);
  close(f);
  rewrite(f);
  for i := 1 to n do
    if a[i] > 7 then
      write(f, a[i] * (a[i] div 7))
    else 
      write(f, a[i]);
  close(f);
end;
 
var Fp: file of integer;
    x, i: integer;
    path: string;
begin
  randomize;
  path := 'Fp.dat';
  assign(Fp, path);
  rewrite(Fp);
  for i := 1 to n do begin
    x := random(15);
    write(Fp, x);
  end;
  close(Fp);
  FromFile(path);
  RewriteFile(path);
  FromFile(path);
end.