procedure najmniejszyelement(var t:Tab; var MIN: double; var POZ: integer);
begin
   MIN:=0;
   POZ:=0;
          for i:=0 to 9 do
          Begin
          if t[i]<t[i+1] then
          begin
          MIN:=t[i];
          POZ:=i;
          end;
          if t[i]>t[i+1] then
          begin
          MIN:=t[i+1];
          POZ:=i+1;
          end;
          if t[i]=t[i+1] then
          begin
          MIN:=t[i];
          POZ:=i;
          End;
          if t[i]<MIN then
          MIN:=t[i];
          POZ:=i;
          End;
   end;