Объединение программ

var 
F,Y: Text; 
St: String; 
fn: Byte; 
N, i: integer; 
 
function AddSpace2N(S: String; k: Byte): String; 
begin 
if Length(S) < k then AddSpace2N := AddSpace2N(S + ' ', k) else AddSpace2N := S; 
end; 
 
begin 
if paramcount <2 then 
exit; 
for i := 1 to length(paramstr(2)) do 
if ('0' <= paramstr(2)[i]) and (paramstr(2)[i] <= '9') then 
N := N * 10 + ord(paramstr(2)[i]) - ord('0'); 
Assign(f, paramstr(1)); 
Reset(f); 
Assign(Y,paramstr(3)); 
Rewrite(Y); 
while not EOF(f) do 
begin 
Readln(f, St); 
repeat 
fn := N + 1; 
while (fn > 0) and (fn <= Length(St)) and (St[fn] <> ' ') do Dec(fn); 
if fn <= 0 then 
begin 
Writeln(Copy(St, 1, N)); 
Delete(St, 1, N); 
 
end 
else 
begin 
Writeln(Y,(AddSpace2N(Copy(St, 1, fn - 1), N))); 
Delete(St, 1, fn); 
end; 
until Length(St) = 0; 
end; 
Close(f); 
Close(Y); 
end.

var a:string[100];
    i, j, n: integer;
    t,f:text;
begin
assign(t,'J:/123.txt');
reset(t);
assign(f,'J:/321.txt');
rewrite(f);
while not Eof(t) do
    begin
    readln(t,a);
      if pos(' ',a) > 0
        then while length(a) <= 99 do
          for j := length(a) downto 1 do
            begin
              if a[j] = ' ' then insert(' ', a, j);
              if length(a) = 100 then break
            end;
            writeln(f,a);
    end;
end.

var
  F, Y: Text; 
  St: String; 
  fn: Byte; 
  N, i: integer;
  a: string[100];
  g, j, d: integer;
  t, fi: text;
 
function AddSpace2N(S: String; k: Byte): String;
begin
  if Length(S) < k then AddSpace2N := AddSpace2N(S + ' ', k) else AddSpace2N := S; 
end;
 
begin
  if paramcount < 2 then 
    exit; 
  for i := 1 to length(paramstr(2)) do 
    if ('0' <= paramstr(2)[i]) and (paramstr(2)[i] <= '9') then 
      N := N * 10 + ord(paramstr(2)[i]) - ord('0'); 
  Assign(f, paramstr(1)); 
  Reset(f); 
  Assign(Y, paramstr(3)); 
  Rewrite(Y); 
  while not EOF(f) do 
  begin
    Readln(f, St); 
    repeat
      fn := N + 1; 
      while (fn > 0) and (fn <= Length(St)) and (St[fn] <> ' ') do Dec(fn); 
      if fn <= 0 then 
      begin
        Writeln(Copy(St, 1, N)); 
        Delete(St, 1, N); 
        
      end 
      else 
      begin
        Writeln(Y, (AddSpace2N(Copy(St, 1, fn - 1), N))); 
        Delete(St, 1, fn); 
      end; 
    until Length(St) = 0; 
  end; 
  Close(f); 
  Close(Y); 
  assign(t, 'J:/123.txt');
  reset(t);
  assign(fi, 'J:/321.txt');
  rewrite(fi);
  while not Eof(t) do
  begin
    readln(t, a);
    if pos(' ', a) > 0
      then while length(a) <= 99 do
        for j := length(a) downto 1 do
        begin
          if a[j] = ' ' then insert(' ', a, j);
          if length(a) = 100 then break
        end;
    writeln(f, a);
  end;
end.