Помогите разобраться

[SEBASTIAN]

Помогите разобраться

Вот дан код(паскаль) нужно из процедуры вырезать функцию записи и вставить в головную программу. а ioresult с eof оставить в процедуре.

Program kurs;
uses crt;
type train=record
    naz=string[20];
    nom=integer;
    tim=string[20];
end;
var mas:array[1..8] of train;

procedure vvod(s:string);
var filee:text; i:integer;
begin
{$i-}
assign(filee,s);
append(filee);
 if ioresult<>0 then begin
 writeln('error');readln;
 rewrite(filee);
 end;
reset(filee);
 if eof(filee) then begin
 append(filee);
 writeln(filee,'---------------------------------------------');
 writeln(filee,'|        punkt        |    nomer    |        time     |');
 writeln(filee,'---------------------------------------------');
 end else append(filee);

[B][U]while true do begin
write('punkt: ');
readln(mas[i].naz);
 if mas[i].naz='' then exit;
write('nom: ');
readln(mas[i].nom);
write('time: ');
readln(mas[i].tim);
writeln(filee,'|',mas[i].naz:17,'|',mas[i].nom:11,'|',mas[i].tim:13);
writeln(filee);[/U][/B]
end;
end;
end;

begin
clrscr;
vvod('kurs.txt');
readln;
end.

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