Объединение двух текстовых файлов Опции

[NeOOffLinE]

помогите пожалуйста...
даны два текстовых файла с произвольным, количеством строк в каждом. Нужно: объединить их в один, причем, где первая строка - это первая строка 1-го файла, вторая - последняя строка 2-го и так дале (3 - 2 строка 1-го, 4 - предпоследняя 2-го).....я просто не представляю алгоритм для высчитывая строк, в текстовом файле..заранее спасибо за возможную помощь..

[volvo]

Объяснить, как это работает, сможешь?

function get_s(var f: text): string;
var s: string;
begin
  readln(f, s);
  get_s := s;
end;

procedure merge_files(var f1, f2: text);


  procedure print(s2: string);
  
    procedure sub;
    begin
  
      if not eof(f1) then begin
        writeln(get_s(f1));
      end;
      if s2 <> #26 then writeln(s2);
  
    end;
  
  begin
    if eof(f2) then begin
  
      sub; exit;
  
    end
    else begin
      print(get_s(f2));
    end;
  
    sub;
  end;

begin
  print(#26);
  while not eof(f1) do
    writeln(get_s(f1));
end;

var
  f1, f2: text;
  s: string;

begin
  assign(f1, 'f01.txt'); reset(f1);
  assign(f2, 'f02.txt'); reset(f2);

  merge_files(f1, f2);

  close(f2);
  close(f1);
end.