Массив: сделать отбор работников заданого цеха, которые поступили на работу к указанному времени

program gjhds;
Uses crt;
Type spisok=record
  num:integer;
  Imya:string[10];
  Otch:string[15];
  Fam:string[15];
  rod:integer;
ceh:integer;
prim:integer;  
end;
var
p:file of spisok;
t1,t2:spisok;
procedure print_file;
begin
seek(p,0);
Textcolor(13);
writeln('________________________________________________________________________________');
writeln('Familia':15,'Imya':10,'Otchestvo':15,'  God Rod','   Ceh','  God Priem' );
writeln('________________________________________________________________________________');
while not eof(p) do
 begin
 read(p,t1);
textcolor(14);
 writeln(t1.Fam:15,t1.imya:10,t1.otch:15,'     ',t1.rod,'   ',t1.ceh,'    ',t1.prim);
 writeln('________________________________________________________________________________');
textcolor(15);
 end;
readln;
end;
 
Procedure Create_file;
var
 i:integer;
begin
Clrscr;
Seek(p, FileSize(p));
writeln('Vvedite svedeniya o sotrudnikah');
writeln('Dlya vbIhpda napechataite "*"');
writeln('________________________________________________________________________________');
while True do
 begin
Textcolor(10);
 Write('Vvedite familiu: ');
 readln(t1.fam);
if t1.fam='*' then break;
Textcolor(12);
 write('Imya: ');
 readln(t1.imya);
Textcolor(14);
 write('Otchestvo: ');
 readln(t1.otch);
write('God roshdeniya: ');
readln(t1.rod);
write('Ceh: ');
readln(t1.ceh);
write('God priema: ');
readln(t1.prim);
write(p,t1)
 end;
end;
 
 
 
 
Procedure Poisk;
var Found:boolean;
s:integer;
 
begin
While true do begin
writeln('Dlya vihoda napechataite "9"');
writeln('Vvedite god priema');
readln(s);
if s=9 then break;
found:=false;
seek(p,0);
writeln('Familia':15,'Imya':10,'Otchestvo':15,'God Rod','Ceh','God Priem' );
while not eof(p) and not found do
begin
read(p,t1);
 
if ((t1.prim)=s) then
begin
 
writeln('________________________________________________________________________________');
writeln(t1.Fam:15,t1.imya:10,t1.otch:15,t1.rod,t1.ceh,t1.prim);
writeln('________________________________________________________________________________');
end;
end;
end;
readln;
end;
 
procedure menu;
var
 Number:integer;
begin
 
TextBackground(9);
while true do
 begin
 clrscr;
 while true do
  begin
  clrscr;
textcolor(11);
  writeln('________________________________________________________________________________');
  writeln('1 - Sozdanie faila ');
  writeln('2 - Vse sotrudniki');
  writeln('3 - Poisk');
  writeln('4 - Vyhod');
  writeln('________________________________________________________________________________');
  writeln('                             Vvedite nomer punkta menu');
textcolor(15);
readln(Number);
  case Number of
   1:Create_file;
   2:Print_file;
   3:Poisk;
   4:Exit;
   end;
  end;
 end;
end;
 
 
begin
clrscr;
assign(p,'spisok.dat');
{$I-}
reset(p);
{$I+}
if IOResult=0 then 
writeln('                            Dobavlenie zapisei v suchestvuechiy fail')
 else
  begin
  rewrite(p);
writeln('                                         Zapis v novii fail');
  end;
readln;
menu;
end.