Очень нужна помощь по Turbo Pascal...Не могу составить програму,по теме:"Процедуры и файлы"...(

[Zara]

Создайте два файла действительных чисел.Проанализировав в програме,создайте файл,содержащий суммы соответствующих чисел файлов.Выведите на экран содержимое файлов.Предусмотрите в програме вывод соответствуещего сообщения,если элементов в файле не оказалось.

[Sm1Le]

и? Помощь или решение ?

[alex_fcsm]

Процедуру сами попробуйте составить

uses crt;
const n=10;
var f,f1,f2:text;
    i,j,temp:integer;
begin
clrscr;
randomize;
writeln('Init files -1');
writeln('Merge files -2');
case readkey of
'1': begin
        assign(f,'c:\1.txt');
        rewrite(f);
        for i:=1 to n do
        writeln(f,random(50));
        close(f);
        assign(f,'c:\2.txt');
        rewrite(f);
        for i:=1 to n do
        writeln(f,random(50));
        close(f);
    end;
'2':begin
     Assign(f,'c:\1.txt');
     reset(f);
     Assign(f1,'c:\2.txt');
     reset(f1);
     if eof(f) or eof(f1) then begin
                     writeln('Error: No data in any file');
                     exit;
                    end
      else begin
            Assign(f2,'c:\3.txt');
            rewrite(f2);
            clrscr;
            write(' f1 ');write(' f2 ');write(' f3 ');
            writeln;
             while not eof(f) do
                 begin
                  readln(f,i);readln(f1,j);
                  writeln(f2,i+j);
                  write(i:3);write(j:3);write((i+j):3);
                  writeln;
                 end;
            close(f);close(f1);close(f2);
           end;

    end;
  end;
  readln;
end.