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

program File55;
var
 S: array [0..4] of String;
 F,F1: File of Integer;
 N,i,temp,len: integer;
begin
  Write('S0: ');
  Readln(S[0]);
  Write('N: ');
  Readln(N);
  Assign(F,S[0]);
  ReWrite(F);
  For i:=1 to N do
   begin
    Write('S',i,': ');
    Readln(S[i]);
   end;
  For i:=1 to N do
   begin
    Assign(F1,S[i]);
    Reset(F1);
    len:=0;
    while not eof(F1) do
     begin
      inc(len);
      Read(F1,temp);
     end;
    Close(F1);
    Write(F,len);
    Reset(F1);
    while not eof(F1) do
     begin
      Read(F1,temp);
      Write(F,temp);
     end;
    Close(F1);
   end;
   Close(F);
end.