Сортировка выбором (паскаль)

[Женька Good]

Написал программу сортировки выбором, но мне выводит не отсортированный массив а исходный...
массив чисел находится в файле *.dat

Program program;
 type
       DataItem = char;
       DataArray = array [1..1000] of char;
     var
       test: DataArray;
       t, t2: integer;
       testfile: file of char;

   procedure Selekt(var item: Dataarray; count:integer);
var
  i, j, k: integer;
  x: Dataitem;
begin
  for i := i 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; {кінець сортування вибором}


     begin
       Assign(testfile, 'd:\My Education\test.dat');
       Reset(testfile);
       t := 1;
     { считывание символов,которые будут сортироваться.}
      while not Eof(testfile) do begin
         read(testfile, test[t]);
         t := t+1;
       end;
     t := t-2; {скорректировать число считанных элементов }
      { сортировать массив }
      selekt(test, t);
     { выдать отсортированный массив символов }
     for t2 := 1 to t do
     write(test[t2],' ');
     WriteLn;
     Close(testfile);
   end.

[Serge_Bliznykov]

массив чисел находится в файле *.dat

file of char;

поясните, каким образом Ваши числа связаны с типом char ?!
я бы ещё понял, если бы тип был byte, но уж char как тут затесался?!

[Женька Good]

Сообщение от Serge_Bliznykov

поясните, каким образом Ваши числа связаны с типом char ?!
я бы ещё понял, если бы тип был byte, но уж char как тут затесался?!

и из-за этого оно не выводит мой отсортированный массив?

[Serge_Bliznykov]

и из-за этого оно не выводит мой отсортированный массив?

не исключено.
сократите программу до такого кода:

<описание типов и переменных>
begin
     Assign(testfile, 'd:\My Education\test.dat');
     Reset(testfile);
     t := 0;
     { считывание символов,которые будут сортироваться.}
     while not Eof(testfile) do begin
         t := t+1;
         read(testfile, test[t]);
     end;
     Close(testfile);

     { выдать  массив символов }
     WriteLn('прочитанный массив: ')
     for t2 := 1 to t do
        write(test[t2],' ');
     WriteLn;

     Readln; {ждём нажатия Enter}
end.

выполняете код. Убеждаетесь, что из файла всё прочиталось как надо.
потом вставляете процедуру сортировки. Выводите массив отсортированный. Тестируете. Убираете баги (если они есть).
Профит.

[Женька Good]

Сообщение от Serge_Bliznykov

не исключено.
сократите программу до такого кода:

<описание типов и переменных>
begin
     Assign(testfile, 'd:\My Education\test.dat');
     Reset(testfile);
     t := 0;
     { считывание символов,которые будут сортироваться.}
     while not Eof(testfile) do begin
         t := t+1;
         read(testfile, test[t]);
     end;
     Close(testfile);

     { выдать  массив символов }
     WriteLn('прочитанный массив: ')
     for t2 := 1 to t do
        write(test[t2],' ');
     WriteLn;

     Readln; {ждём нажатия Enter}
end.

выполняете код. Убеждаетесь, что из файла всё прочиталось как надо.
потом вставляете процедуру сортировки. Выводите массив отсортированный. Тестируете. Убираете баги (если они есть).
Профит.

без вызова процедуры, массив печатался из файла,
а при вызове процедуры, все равно печатается массив из файла...