Создать файл из квадратов элементов заданного массива. Получить файл из удвоенных элементов созданного файла.

const
  c : array of Byte = (4, 2, 3, 8, 6, 7);
 
var
  a, d : Text;
  temp : Word;
  i : Byte;
 
begin
  Assign(a, 'a'); ReWrite(a);
  Randomize;
  for i := 0 to Length(c)-1 do
    WriteLn(a, sqr(c[i]):2);
  Close(a); Reset(a);
  Assign(d, 'd'); ReWrite(d);
  while not Eof(a) do
  begin
    ReadLn(a, temp);
    WriteLn(d, (temp * 2):3);
  end;
  Close(a); Close(d); Reset(d);
  while not Eof(d) do
    ReadLn(d, temp);
  Close(d);
end.

const
  c : array of Byte = (4, 2, 3, 8, 6, 7); //приведённый вами же массив
 
var
  a, d : Text; //переменная текстового файла
  temp : Word; //временная переменная, для промежуточного хранения
  i : Byte; //счётчик
 
begin
  Assign(a, 'a'); ReWrite(a); //открываем на перезапись файл A
  Randomize; //"чтоб числа по новой рандомились"
  for i := 0 to Length(c)-1 do //для каждого элемента массива C
    WriteLn(a, sqr(c[i]):2); //записываем в A квадрат элемента из C
  Close(a); Reset(a); //переоткрываем A
  Assign(d, 'd'); ReWrite(d); //открываем на перезапись D
  while not Eof(a) do //пока не конец файла А
  begin
    ReadLn(a, temp); //читаем строку (число)
    WriteLn(d, (temp * 2):3); //записываем удвоенное число из файла А
  end;
  Close(a); Close(d); Reset(d); //закрываем А, переоткрываем D
  while not Eof(d) do //пока не конец D
    ReadLn(d, temp); //читаем строку (т.к. было сказано лишь прочитать D, ничего более не делаем)
  Close(d); //закрываем D
end.