Как сделать так, чтобы ввод и вывод данных и результатов выполнялся в нестандартном текстовом файле?

program Lab2;  
    {$APPTYPE CONSOLE}
    Uses Windows;
var 
  i, n, x: byte;
  a:array[0..10] of real;
begin
setConsoleCP(1251); // для ввода  русификация и
 setConsoleOutputCP(1251); // для вывода
  x:=0;
      begin
      Write ('Введите размер массива равный N', ' ');
      Read(n);
      Writeln('Введите массив a : ');
    end;
     For i:=1 to n do
      begin
        Readln(a[i]);  
      end;
  For i:=1 to n do
  begin
    if a[i]<0 then
      x:= x+1;
  end;
writeln;
writeln ('Отрицательных (x) =', ' ', x);
for i:= 1 to n-1 do
  if (a[i] > 1) and (a[i+1]<>0) then 
    a[i]:=a[i]/a[i+1];
for i:=1 to n do
  writeln ('y=',a[i]:8:2);
  write('Press ENTER...'); {задерживаем экран до нажатия ENTER}
  readln;
end.

program Lab2;
    {$APPTYPE CONSOLE}
    Uses Windows;
var
  i, n, x: byte;
  a:array[0..10] of real;
begin
  setConsoleCP(1251); // для ввода  русификация и
  setConsoleOutputCP(1251); // для вывода
  AssignFile(input, 'in.txt'); // --------Добавлено
  AssignFile(output, 'out.txt'); // --------Добавлено
  x:=0;
  begin
    Write ('Введите размер массива равный N', ' ');
    Read(n);
    Writeln('Введите массив a : ');
  end;
  For i:=1 to n do
    Readln(a[i]);
  For i:=1 to n do
    if a[i]<0 then
      x:= x+1;
  writeln;
  writeln ('Отрицательных (x) =', ' ', x);
  for i:= 1 to n-1 do
    if (a[i] > 1) and (a[i+1]<>0) then
      a[i]:=a[i]/a[i+1];
  for i:=1 to n do
    writeln ('y=',a[i]:8:2);
  write('Press ENTER...'); {задерживаем экран до нажатия ENTER}
//  readln; // --------Это здесь не нужно
  CloseFile(input); // --------Добавлено
  CloseFile(output); // --------Добавлено
end.

3
1
-3
56