Работа с файлами Опции

[Аlex]

Слить в один два упорядоченных по возрастающей файла целых чисел. Файл результат тоже должен быть упорядочен по возрасающей.

Я напсиал прогу,но прблема в том что если в первом файле числа больше чем во втором,то файл-результат не получается упорядоченный по возрастающей.(Т.Е если в певом файле написать 5 6 7 8, а во втором 1 2 3 4, то файл-результат не получится упорядоченным по возрастающй)
Помогите исправить плз..
Вот что я написал:

Var
   f1:file of char;
   f2:file of char;
   f3:file of char;
   x:char;
   mas:array[1..100] of char;
   i,k,n,j:integer;
   new:char;
begin
 assign(f1,'C:\1.pas');
   reset(f1);
     assign(f2,'C:\2.pas');
       reset(f2);
      assign(f3,'C:\3.pas');
    rewrite(f3);
   i:=1;
 while not eof (f1) do
begin
   read(f1,x);
     mas[i]:=x;
 i:=i+1;
end;
  while not eof (f2) do
begin
  read(f2,x);
    mas[i]:=x;
  i:=i+1;
end;
  for i:=1 to i-1 do
    write(mas[i]);
      writeln('sortiruem');
     n:=i;
   for j:=1 to n-1 do
begin
   new:=mas[n];
       k:=n;
        for i:=n downto j do
   if mas[i]>new then
begin
 k:=i;
   new:=mas[j];
 mas[j]:=new;
end;
   for i:=1 to n do
      write (mas[i]:4);
            writeln;
           for i:=1 to n do
        write (f3,mas[i]);
     readln;
   close(f1);
 close(f2);
close(f3);
readln;
end;
end.

Сообщение отредактировано: Аlex - 7.06.2007 18:33

[Аlex]

Сортировка слияний (Неймана),в данной ситуации не подходит.Если мы будем использовать сортировку Неймана, то в программе мы будем использовать процедуру. А в решении этой задачи нужно обойтись без функций и процедур.
Можно ли в данной ситуации обойтись без функций и процедур?Если да, то как?

P.S Bсходный файл у меня не привысит размер 64K

Сообщение отредактировано: Аlex - 7.06.2007 20:02