Файлы

[Алексей Д.]

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

Не подскажите как сделать?

[AlDelta]

Конечно подскажем. Для начала неплохо было бы набросать код простенького меню, почитать какую-нибудь книжку, а потом спрашивать конкретно...

[Алексей Д.]

uses crt, printer;
procedure print(var dest: text; const f_name: string);
var
  f: text;
  s: string;
begin
  assign(f, f_name); reset(f);
  while not eof(f) do begin
    readln(f, s);
    writeln(dest, s);
  end;
end;

var
  txt: text;
  s: string;
  i: integer;
begin
  write('Имя файла: '); readln(s);
  writeln('Введите 1) печать 2) просмотр');
  readln(i);
  case i of
    1: print(lst, s);
    2:
    begin
      assigncrt(txt); rewrite(txt);
      print(txt, s);
      close(txt);
    end;
  end;
end.

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