Файловый ввод-вывод

Ввод-вывод будем демонстрировать на примере следующей задачи: в файле sum.in записаны два целых числа по модулю не превышающих 32000, в файл sum.out нужно вывести их сумму.

var a,b:longint;
    inf,ouf:text;      {Создаем файловые переменные}
begin
assign(inf,'sum.in');  {Связываем переменную inf с файлом}
reset(inf);            {Открываем файл для чтения}
assign(ouf,'sum.out'); {Связываем переменную ouf с файлом}
rewrite(ouf);          {Открываем файл для записи}
read(inf,a,b);         {Считываем из файла}
writeln(ouf,a+b);      {Закрываем файлы}
close(inf);
close(ouf);
end.

Второй вариант предполагает перенаправление стандартного ввода и вывода (использование уже описанных файловых переменных input и output):

var a,b:longint;
begin
assign(input,'sum.in');
reset(input);
assign(output,'sum.out');
rewrite(output);
read(a,b);
writeln(a+b);
close(input);
close(output);
end.