diff --git a/PRAKTIKA.PAS b/PRAKTIKA.PAS
index f278184..b7cf95e 100644
--- a/PRAKTIKA.PAS
+++ b/PRAKTIKA.PAS
@@ -5,13 +5,14 @@ program pr;
      y_wlcm           :     integer; {Vsplivayushii text}
      i,e,nlect        :     integer; {Vspomogatelnie peremennye}
      cur              :     integer; {Posicia kursora v menu}
-     x,y, hgt          :     integer; {Peremennye dlya vyvoda teksta}
+     x,y, hgt         :     integer; {Peremennye dlya vyvoda teksta}
      ch, cf, ct       :     integer; {Peremennye dlya chtenia teksta}
      nolect           :     integer; {Nomer lekcii}
      numtest, otv     :     integer; {Test}
      f                :     text;    {File lekcii}
      th,tm,ts,tms     :     word;    {Время}
      t1,t2, tminim    :     longint; {Время}
+     ntt, mntt        :     integer;
      javame, author,
      welcome, dtpa, s,
      menustatus, tmp,
@@ -38,7 +39,7 @@ program pr;
      procedure lections(var lect:integer); forward;
      procedure ui(ttitle, tbar : string; back : integer); forward;
      procedure question(var tst:integer); forward;
-     procedure marks(var pr_otv: integer); forward;
+     procedure marks(var pr_otv, num_otv: integer); forward;
 
      {Procedura inicializacii peremennyh}
      procedure init_variables;
@@ -46,9 +47,11 @@ program pr;
       cf                 := 9;
       ct                 := 14;
       x                  := 20;
-      hgt               := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
+      mntt               := 20;
+      hgt                := 400; {Vysota svobodnoy oblasti pri vyvode teksta}
       y_wlcm             := -20;
       cur                := 1;
+      tminim             := 2000000000;
       author             := 'Автор: Виктор aNNiMON Мельник';
       dtpa               := 'ДТПА 2ПО-07';
       welcome            := 'Приветствую';
@@ -56,7 +59,7 @@ program pr;
       lectstatus         := 'F1 - Помощь          T - Тест          ESC - Меню';
       teststatus         := 'F1 - Помощь          L - Лекции          ESC - Меню';
       menustatus         := 'ESC - Выход   UP,DOWN,LEFT,RIGHT - Передвижение курсора   ENTER - Переход';
-      path               := {'Y:\SCHOOL.PAK\2PO-07\'}'C:\BP\BIN\annimon\' {'D:\TP\BIN\annimon\'};
+      path               := 'D:\TP\BIN\annimon\';
       {Menu Lekcii}
       for i:= 1 to 10 do
       begin
@@ -144,7 +147,7 @@ program pr;
           bar(0, 0, 640, 18);
           setcolor(13);
           settextstyle(2,0,6);
-          outtextxy(320-TextWidth(title) div 2, 0, ttitle);
+          outtextxy(320-TextWidth(ttitle) div 2, 0, ttitle);
           {Status}
           setfillstyle(1, 7);
           settextstyle(2,0,4);
@@ -250,13 +253,14 @@ program pr;
         p1:= '0';
         otv:=0; {Kol-vo pravilnyh otvetov}
         gettime (th,tm,ts,tms);
-        t1:=tms+ts*60+tm*3600+th*3600*60; 
+        t1:=tms+ts*60+tm*3600+th*3600*60;
         for i:=1 to nt do
          begin
             readtlines;
             repeat
               {Obrabotka klavish upravlenia}
-              ui('Тест #'+tmp+' Вопрос '+i,teststatus,cf);
+              str(i,j);
+              ui('Тест #'+tmp+' Вопрос '+j,teststatus,cf);
               {Otrisovka teksta}
               setcolor(ct);
               settextstyle(2,0,5);
@@ -278,7 +282,13 @@ program pr;
         end;
         {End of test}
         gettime (th,tm,ts,tms);
-        t2:=tms+ts*60+tm*3600+th*3600*60; 
+        t2:=tms+ts*60+tm*3600+th*3600*60;
+        if((t2-t1)<tminim) then
+         begin
+           tminim:=t2-t1;
+           numtest:=nolect;
+         end;
+
         if(i=nt) then marks(otv, nt);
 
      end;
@@ -286,17 +296,31 @@ program pr;
      {Procedura vyvoda ocenok}
      procedure marks(var pr_otv, num_otv: integer);
       var out: string;
-            mrk: integer;
+          mrk: integer;
       begin
          ui('Оценка','',cf);
          settextstyle(3,0,6);
          setcolor(ct);
-         mrk := pr_otv * 100 div num_otv; 
+         mrk := pr_otv * 100 div num_otv;
+         if(pr_otv<mntt) then
+          begin
+            mntt:=pr_otv;
+            ntt:=numtest;
+          end;
          if(mrk<25) then out:='Неудовлетворительно'
          else if(mrk<50) then out:='Удовлетворительно'
          else if(mrk<75) then out:='Хорофо =)'
          else out:='Браво. Няяяяк ^_^';
-         outtextxy(67,320-TextWidth(out) div 2,out);
+         outtextxy(320-TextWidth(out) div 2, 67 ,out);
+         settextstyle(2,0,5);
+         str((t2-t1)div 60, tmp);
+         outtextxy(60, 140, 'На этот тест вы отвечали '+tmp+' сек');
+         str(numtest, tmp);
+         str(tminim div 60, j);
+         outtextxy(60, 160, 'Номер самого быстрого теста - '+tmp+': '+j+' сек');
+         str(ntt, tmp);
+         str(mntt, j);
+         outtextxy(60, 180, 'Номер теста с минимальным кол-вом ответов - '+tmp+': '+j+' ответов');
          repeat p:=readkey
          until (p=#27);
       end;