Ошибка времени выполнения: Чтение после конца потока невозможно

var
 S1,S2,S3: String;
 F1,F2,F3: File of Real;
 El1,El2:Real;
 
begin
  Write('S1: ');
  Readln(S1);
 
  Write('S2: ');
  Readln(S2);
 
  Write('S3: ');
  Readln(S3);
 
  Assign(F1,S1);
  Assign(F2,S2);
  Assign(F3,S3);
 
  Reset(F1);
  Reset(F2);
  ReWrite(F3);
 
  Read(F1,El1);
  Read(F2,El2);
 
  while true do
   begin
    if El1<El2 then
     begin
      Write(F3,El1);
      if not (eof(F1)) then Read(F1,El1)
      else
       begin
        Write(F3,El2);
        break;
       end;
     end
    else
     begin
      Write(F3,El2);
      if not(eof(F2)) then Read(F2,El2)
      else
       begin
        Write(F3,El1);
        break;
       end;
     end;
   end;
 
 
  if not (Eof(F2)) then
   begin
    while not(eof(F2)) do
     begin
      Read(F2,El2);
      Write(F3,El2);
     end;
   end;
 
  if not (Eof(F1)) then
   begin
    while not(eof(F1)) do
     begin
      Read(F1,El1);
      Write(F3,El1);
     end;
   end;
 
  Close(F1);
  Close(F2);
  Close(F3);
  Readln;
end.