Переделайте программу так, чтобы ввод и вывод осуществлялся с помощью текстовых файлов - Pascal ABC

Program Lr8_3;
uses crt;
   var f,g: text;
   a: array [1..100] of integer;
   i, n, max: integer;
   begin
   assign(f,'input.txt');
   assign(g,'output.txt');
   reset(f);
   rewrite(g);
   while not eof (f) do
   begin
   inc(n);
   read(f,a[n]);
   end;
   max:=a[1]+a[2];
   for i:=2 to n-1 do
        if (a[i]+a[i+1])>max then max:=a[i]+a[i+1];
   writeln ('Наибольшая сумма, образованная двумя идущими подряд элементами = ', max);
   writeln (g,'Наибольшая сумма, образованная двумя идущими подряд элементами = ', max);
   close(f);
   close(g);
   end.