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

program File53;
var
 S: String;
 F_in,F_out: File of Integer;
 N,i,NumFiles,temp,LenFile,LenFirstFiles: integer;
begin
  Write('FileArch: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Write('S: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);
  Write('N: ');
  Readln(N);
  Read(F_in,NumFiles);
  LenFirstFiles:=0;
  LenFile:=0;
  For i:=1 to NumFiles do
   begin
    Read(F_in,temp);
    if i=N then LenFile:=temp;
    if i<N then LenFirstFiles:=LenFirstFiles+temp;
   end;
  For i:=1 to LenFirstFiles do Read(F_in,temp);
  For i:=1 to LenFile do
   begin
    Read(F_in,temp);
    Write(F_out,temp);
   end;
  Close(F_in);
  Close(F_out);
end.