структура...у меня время до вечера...надо сдать зачет...

program tt;
 
var
  ch:char;
  fname,buf:string;
  i:byte;
  h:text;
  procedure enter(fname:string);
  begin
    {$I-}
    assign(h,fname);
    append(h);
    {$I+}
    if IOResult<> 0 then begin
      rewrite(h);
      writeln('Введите что нужно дописать: ');
      readln(buf);
      write(h,buf);
      writeln('Данные записаны!');
      close(h);
    end
    else begin
      writeln('Введите что нужно дописать: ');
      readln(buf);
      write(h,buf);
      writeln('Данные записаны!');
      close(h);
    end;
  end;
  procedure show(fname:string);
  begin
    {$I-}
    assign(h,fname);
    reset(h);
    {$I+}
    if IOResult<> 0 then writeln('Ошибка открытия')
    else begin
      read(h,buf);
      writeln(buf);
      close(h);
      readln;
    end;
  end;
BEGIN
  repeat
  clrscr;
  writeln('1. Дописать в файл');
  writeln('2. Вывести содержимое файла');
  writeln('3. Выход');
  readln(ch);
  case ch of
   '1':begin
         
         write('Введите путь и имя файла: ');
         readln(fname);
         enter(fname);
       end;
   '2': begin
         
         write('Введите путь и имя файла: ');
         readln(fname);
         show(fname);
       end;
  end;
 
END.