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

program File57;
var
 S: String;
 F_in,F_out_begin,F_out_end: File of Integer;
 i,i2,temp,len: integer;
begin
  Write('Archive File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Write('S1: ');
  Readln(S);
  Assign(F_out_begin,S);
  ReWrite(F_out_begin);
  Write('S2: ');
  Readln(S);
  Assign(F_out_end,S);
  ReWrite(F_out_end);
  While not eof(F_in) do
   begin
    Read (F_in,len);
    for i2:=1 to len do
     begin
      Read (F_in,temp);
      if i2=1 then Write(F_out_begin,temp);
      if i2=len then Write(F_out_end,temp);
     end;
   end;
   Close(F_in);
   Close(F_out_begin);
   Close(F_out_end);
end.