Решение задачи File 54

program File54;
var
 S: String;
 F_in: File of Integer;
 F_out: File of Real;
 Sum,i,i2,NumFiles,temp: integer;
 LenFiles: array [1..6] of integer;
 Sred: Real;
begin
  Write('FileArch: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Write('S: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);
  Read(F_in,NumFiles);
  For i:=1 to NumFiles do
   begin
    Read(F_in,temp);
    LenFiles[i]:=temp;
   end;
  For i:=1 to NumFiles do
   begin
    Sum:=0;
    For i2:=1 to LenFiles[i] do
     begin
      Read(F_in,temp);
      Sum:=Sum+temp;
     end;
    Sred:=Sum/LenFiles[i];
    Write(F_out,Sred);
   end;
  Close(F_in);
  Close(F_out);
end.