USES
  CRT,GRAPH;
 TYPE
     tablic=record
             name:string[20];
             chislohodov:integer;
             time: record
                    chast:0..60;
                    mint:0..60;
                    sect:0..60;
                   end;
             razmerpoly:0..6;
            end;
  shest=0..60;
  tabtype=file of tablic;
 VAR
  sec,min,chas,hodi,dlina:shest;
  j,i,o,p:integer;
  t:boolean;
 PROCEDURE PROSMOTR(var f:tabtype);

  VAR
   st:string;
   s:tablic;
   h:char;
   i,x,y:integer;
  BEGIN

   reset(f);
   setbkcolor(11);
   setfillstyle(1,7);
   bar(10,10,getmaxX-10,getmaxY-10);
   setcolor(4);
   setlinestyle(0,0,3);
   bar3d(15,15,getmaxX-20,getmaxY-20,0,false);
   settextstyle(6,0,1);
   rectangle(15,45,getmaxX-20,106);
   line(50,47,50,getmaxY-20);
   line(290,45,290,getmaxY-20);
   line(360,45,360,getmaxY-20);
   line(410,80,410,getmaxY-20);
   line(360,80,getmaxX-90,80);
   line(476,80,476,getmaxY-20);
   line(getmaxX-90,45,getmaxX-90,getmaxY-20);
   settextstyle(6,0,1);
   setcolor(10);
   outtextXY(25,55,'N    NAME');
   outtextXY(293,50,'razmer');
   outtextXY(293,65,'室��');
   outtextXY(390,50,'����� ����');
   outtextXY(363,85,'����');
   outtextXY(413,85,'������');
   outtextXY(477,85,'���㭤�');
   outtextXY(getmaxX-85,55,'hodi');
   outtextXY(getmaxX-85,75,' hodi ');
   outtextXY(25,20,'tablicaa');
   setcolor(1);
   setlinestyle(1,1,1);
   for i:=1 to 10 do
    begin
     str(i,st);
     outtextXY(25,i*35+80,st);
     line(15,i*35+107,getmaxX-20,i*35+107);
    end;
   x:=55;
   y:=85;
   setcolor(14);
   for i:=1 to 10 do
    begin
     seek(f,i-1);
     read(f,s);    {error pochemu}
      with s do
       begin
        y:=y+35;
        outtextXY(x,y,name);
        str(chislohodov,st);
        outtextXY(x+250,y,st);
        with time do
         begin
          str(chast,st);
          outtextXY(x+320,y,st);
          str(mint,st);
          outtextXY(x+370,y,st);
          str(sect,st);
          outtextXY(x+450,y,st);
         end;
        str(razmerpoly,st);
        outtextXY(x+525,y,st);
       end;
    end;
   readkey;
   close(f);
   cleardevice;
   setbkcolor(0);
   settextstyle(1,0,5);
   i:=0;
   randomize;
   setcolor(4);
  END;

   PROCEDURE TABLICA(t:boolean);
  VAR
   c,s,m:integer;
   store,new:array [1..5] of integer;
   soder:array [1..12] of tablic;
   tabfile:tabtype;
   PROCEDURE PEREZAPIS(var f:tabtype);
   BEGIN
    rewrite(f);
    for i:=1 to 12 do
     begin
     with soder[i] do
      begin
       name:='';
       razmerpoly:=0;
       with time do
        begin
         chast:=0;
         mint:=0;
         sect:=0;
        end;
        chislohodov:=0;
       write(f,soder[i]);
      end;
     end;
     close(f);
   END;
  PROCEDURE PROBA(st,ne:integer);
  var j:integer;
   BEGIN
    if st<ne
     then begin
           for j:=10 downto i do
            begin
             soder[j+1]:=soder[j];
             seek(tabfile,j);
             write(tabfile,soder[j+1]);
            end;
           seek(tabfile,i-1);
           write(tabfile,soder[12]);
           i:=10;
          end
      else if (st=ne) and (m<5)
            then begin
                  m:=m+1;
                  PROBA(store[m],new[m]);
                 end;

   END;
  PROCEDURE ZAPIS(var f:tabtype);
   VAR
    s:string;
   BEGIN
    new[1]:=dlina;
    store[2]:=chas;
    store[3]:=min;
    store[4]:=sec;
    new[5]:=hodi;
    s:='den';
     with soder[12] do
      begin
       name:=s;
       razmerpoly:=dlina;
       with time do
        begin
         chast:=chas;
         mint:=min;
         sect:=sec;
        end;
        chislohodov:=hodi;
       end;
    reset(f);
    for i:=1 to 10 do
       read(f,soder[i]);
    for i:=1 to 10 do
     begin
      with soder[i] do
       begin
        store[5]:=chislohodov;
        with time do
         begin
          new[2]:=chast;
          new[3]:=mint;
          new[4]:=sect;
         end;
        store[1]:=razmerpoly;
       end;
       m:=1;
       PROBA(store[m],new[m]);
      end;
    close(f);
  END;
 BEGIN
 readkey;
  assign(tabfile,'tablica.bak');

          ZAPIS(tabfile);
          PROSMOTR(tabfile);

  END;

 {prog}
 begin
 o:=detect;
 initgraph(o,p,'');;
 t:=true;
 hodi:=5;
 chas:=3;
 min:=2;
 sec:=0;
 dlina:=4;

 tablica(t);
 readkey
 End.