чтение из текстового файла в структуру TRAIN и вывод информации по запросу (Паскаль)

[Arabic_Coffee]

Нужно описать структуру train с 3я(пункт,номер и время)
создать массив типа train.
запись информации в текстовый файл и чтение из него.
А также запрос номера поезда и вывод всей информации из него.

program kurs;
uses crt;
TYPE train=record
     naz:string;
     nom:integer;
     tim:string;
end;
var
mas:array[1..8  ] of train;
a:train;
otv:char; i:integer; filee:text; s:string;


procedure vvodd(s:string;otv:char);
var filee:text; i:integer;
begin
{$I-}
assign(filee,s);
if (otv='1')  then begin
append(filee);

if ioresult<>0 then begin
writeln('file not found');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 break;
 write('enter nomer: ');
 readln(mas[i].nom);
 write('enter time: ');
 readln(mas[i].tim);

 write(filee,'|',mas[i].naz:17,'|',mas[i].nom:11,'|',mas[i].tim:13,'|');

 writeln(filee);
end;

end;
 close(filee);
end;

procedure vivod(s:string;otv:char);
var filee:text; st:string;
begin
assign(filee,s);
{$i-}
if (otv='2')  then begin
reset(filee);
{$i+}
if ioresult<>0 then begin
write('file nod fount'); readln;
exit;
end;

if eof(filee) then begin
writeln('no infornation'); readln;
exit;
end;

while not eof(filee) do begin
readln(filee,st);
writeln(st);
end;
close(filee);
end;

end;




begin
clrscr;
while true do begin
 writeln('Menu:');
 writeln('1 Vvod information');
 writeln('2 Vivod information');
 writeln('3 Poisk information');
 writeln('4 Exit');
 readln(otv);

case otv of
 '1':vvodd('Kurs.txt',otv);
 '2':vivod('Kurs.txt',otv);
 '3':exit;
end;
writeln;

writeln('next to work?[y/n]');
readln(otv);
if (otv='N') or (otv='n') then exit;

end;

readln;
end.

мне осталось сделать последнее, запросить номер поезда и вывести на экран всю информацию о нем, не могу понять как это сделать...( помогите пожалуйста..