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

[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]

За грамматику на любом другом форуме будет та же реакция. Русский язык надо знать.
А на его основной вопрос я ответил. Я же не стал говорить "отвечу только после того, как выучишь русский", хотя и такое бывает.

[Lapp]

За грамматику на любом другом форуме будет та же реакция.

Другие форумы мне (и никому тут) не указ. Бывали, знаем.

Русский язык надо знать.

Всем?

А на его основной вопрос я ответил. Я же не стал говорить "отвечу только после того, как выучишь русский", хотя и такое бывает.

А вот это абсолютно ни при чем. Хочешь - отвечаешь. Не хочешь - никто не заставляет. Я не знаю, где "такое бывает", но я бы за такое УРЫЛ.

По поводу "любого другого форума" ты все же ошибаешься. Я много бывал на форумах. Еще и тогда, когда работал в России. Мой английский и сейчас неидеален, а тогда.. Короче, хочу сказать: ни на форумах, ни в реальной жизни меня никогда никто не попрекал моими ошибками (которых было предостаточно, да и сейчас есть, хотя я стараюсь). Когда они мешают понимать суть - тогда уточняют. Я сам всех своих знакомых прошу поправлять меня (потому что знаю, что это мне полезно). А когда я извиняюсь за свой английский, следует стандартный ответ: "my Russian sucks.." Только не надо говорить, что "все американцы знают только один язык" - это неправда.

Короче, Тарас, я еще раз повторяю: я очень уважаю твои знания по предмету (я имею в виду не ответ в этой теме, а вообще). Если ты хочешь на этом сыграть - пожалуйста, я заранее признаю себя побежеденным, можешь занять мое место. Но пока я тут админ - НИКТО, включая тебя, НЕ БУДЕТ попрекать других участников плохим знанием русского. И пойми: я в данный момент занимаюсь именно тем, что защищаю русский язык. Потому что навязывать его всем - это лучший способ привить к нему нелюбовь.

Я ясно выразился?

PS
хочешь поговорить про русский язык - сделай соответствующую тему или просто пойди на форум о РЯ