Типизированый файл Опции

[manhunt]

Помогите пжалуста никак не могу разобраться с типизироваными файлами
вот мой unit

unit lab1Teacher;
 interface
  type
   Teacher=record
    name:string;
    institute:string;
    kafedra:string;
    fakultet:string;
    predmet:string;
   end;
 
  procedure new(fi1,fi2:string);
  procedure show(fi1:string);
 
  implementation
 
   procedure new;
    var
     f1:file of Teacher;
     i:integer;
     t:teacher;
    begin
     assign(f1, fi1);
     rewrite(f1);
     for i:=1 to 2 do
      begin
       writeln('name');
       readln(t.name);
       writeln('institute');
       readln(t.institute);
       writeln('kafedra');
       readln(t.kafedra);
       writeln('fakultet');
       readln(t.fakultet);
       writeln('predmet');
       readln(t.predmet);
       write(f1,t);
      end;
     close(f1);
   end;
 
   procedure show;
    var
     f1:file of Teacher;
     k:integer;
     t:Teacher;
    begin
 
     assign(f1, fi1);
     rewrite(f1);
      seek(f1,0);
     read(f1,t);
     write(t.name);
     write(t.institute);
     write(t.kafedra);
     write(t.fakultet);
     write(t.predmet);
 
     close(f1);
     end;uses lab1Teacher;
  var
 
   fi1,fi2:string;
 
  begin
    new(fi1,fi2);
    show(fi1);
  end.
end.

а вот тестик к нему

 var
 
   fi1,fi2:string;
 
  begin
    new(fi1,fi2);
    show(fi1);
  end.

Программа написана не полностю, написал токо две процедуры для записи в вывода данных. При выводе выдает какието иероглефы. Стоит dosbox но не думаю что ето из-за нево. Кто чем может помогите. Зарание благодаренuses lab1Teacher;

Сообщение отредактировано: manhunt - 16.02.2011 6:12

[TarasBer]

> Стоит dosbox но не думаю что ето из-за нево.

Не "неВо", а "неГо"!!!

>

   procedure show;
    var
     f1:file of Teacher;
     k:integer;
     t:Teacher;
    begin
 
     assign(f1, fi1);
     rewrite(f1);    <- уничтожаем содержимое файла
      seek(f1,0); 
     read(f1,t);    <- пытаемся считать, но файл открыт для записи, а не чтения.

Замени в этой процедуре rewrite на reset.

[Lapp]

Не "неВо", а "неГо"!!!

- Ой, спасите, не могу,
потяните за ногУ!
- Не ногУ, а нОгу!
- Все равно не мОгу!