View difference between Paste ID: drViUKEi and g9gZekk9

-procedure Selekt(var item: DataArray; count:integer);
+procedure Seleсt(var item: DataArray; count:integer);
 var
          i, j, k: integer;
          x: DataItem;
 begin
-         for i := i to count-1 do
+         for i := 1 to count-1 do
          begin
            k := i;
            x := item[i];
            for j := i+1 to count do { найти элемент с наименьшим
                      значением }
            if item[j]<x then
            begin
                k := j;
                x := item[j];
              end;
            item[k] := item[i];  { обмен }
            item[i] := x;
          end;
 end; { конец сортировки выбором  }