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);

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);
end;
end;
end;

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