Записать в файл g сумму первого и последнего чисел файла f

VAR
      X,M:ARRAY[1..50] OF INTEGER;
      F,G:TEXT;
      I,N:INTEGER;
      NF,NG:STRING;
BEGIN
     WRITELN('ИМЯ F-СОЗДАВАЕМОГО ТЕКСТ. ФАЙЛА(НАПРИМЕР D:\1.TXT):');
     READ(NF);
     assign(f,NF);
     REWRITE(F);
     IF FileExists(NF)=FALSE then begin
                                         Writeln('ФАЙЛ УЖЕ ЕСТЬ');
                                         exit;
                                         end;
     WRITELN('КОЛИЧЕСТВО ЧИСЕЛ(ДО 50)');
     READ(N);
     WRITELN('СЛУЧАЙНЫЕ ЧИСЛА');
     FOR I:=1 TO N  DO BEGIN
                        M[I]:=RANDOM(150)-80;
                        WRITE(M[I],')(');
                        END;
      WRITE(F,M[I]);
      CLOSE(F);
      RESET(F);
      FOR I:=1 TO N DIV 2 DO
      X[I]:=M[I]+M[N-I+1];
      WRITELN;
      CLOSE(F);
      WRITELN(' ИМЯ G-СОЗДАВАЕМОГО ТЕКСТ. ФАЙЛА(НАПРИМЕР D:\2.TXT)');
      READ(NG);
     assign(G,NG);
     REWRITE(G);
     IF FileExists(NG)=FALSE then begin
                                         Writeln('ФАЙЛ УЖЕ ЕСТЬ!');
                                         exit;
                                         end;
     WRITE(G,X[I]);
     CLOSE(G);
     RESET(G);
     WRITELN('РЯД СУММ ПРЕДВАРИТЕЛЬНОГО РЯДА F-СОЗДАННОГО ТЕКСТ. ФАЙЛА: ');
     FOR I:=1 TO N DIV 2 DO
     WRITE(X[I],'  ');
     CLOSE(G);
     
end.

uses crt;
var t,r:file of integer;
    n,a,b,c,i:integer;
begin
randomize;
assign(t,'fileT');
rewrite(t);
assign(r,'fileR');
rewrite(r);
repeat
write('Сколько чисел записать в файл T четное число n=');
read(n);
until n mod 2=0;
for i:=1 to n do
 begin
  a:=random(50)+1;
  write(t,a);
 end;
writeln('Содержание исходного файла:');
seek(t,0);
while not eof(t) do
 begin
  read(t,a);
  write(a:4);
 end;
writeln;
seek(t,0);
for i:=0 to filesize(t) div 2-1 do
 begin
  seek(t,i);
  read(t,a);
  seek(t,filesize(t)-i-1);
  read(t,b);
  c:=a+b;
  write(r,c);
 end;
close(t);
writeln('Содержание нового файла:');
seek(r,0);
while not eof(r) do
 begin
  read(r,a);
  write(a:4);
 end;
close(r);
end.