Блок-схема

uses crt;
procedure vivod(fname:string);
  var s:string;
      f:text;
  begin
    assign(f,fname); //связываем переменную с файлом
    reset(f); //открываем файл для чтения
    while not eof(f) do begin //пока не конец файла
      readln(f,s); //копируем строку из файла в переменную
      writeln(s); //выводим переменную
    end;
    close(f); //закрываем файл
  end;
var
  fname:string;
  c:integer;
begin
  clrscr;
  repeat
    writeln('0. Выход');
    writeln('1. Список товара');
    writeln('2. Список поставщиков');
    writeln('3. Список покупателей');
    readln(c);
    case c of
      1: begin fname:='tovar.txt'; vivod(fname); end;
      2: begin fname:='post.txt'; vivod(fname); end;
      3: begin fname:='pokup.txt'; vivod(fname); end;
    end;
  until c=0;
end.