Помогите найти ошибку

[Валентина90]

Программа выполняет процедуру ввода и вывода, но процедуру сортировки не выполняет

program z5;
type A=array [1..10] of integer;
var C:A;
i,n,j,w:integer;
procedure vvod (i: integer; var C:A);
begin 
for i:=1 to 10 do
read (C[i]);
end;
procedure vivod (i: integer; var C:A);
begin 
for i:=1 to 10 do
write (C[i]+' ');
end;
procedure sort (n,i: integer; var C:A);
begin
for i:=1 to n do
begin
w:=C[i];
 j:=i-1;
while (w<C[j]) and (j>=0) do
begin
C[j+1]:=C[j];
j:=j-1
end;
C[j+1]:=w
end;
end;
begin
vvod (i,C);
vivod (i,C);
sort (n,i,C)
end.

[Serge_Bliznykov]

ошибка в алгоритме сортировки

смотрите:

for i:=1 to n do
begin
  w:=C[i];
   j:=i-1;

берём начало цикла.
i равно 1
чему равно j ? j:=i-1, т.е. j равно нулю
уже всё, ошибка, т.к. C[j] это C[0] - не существует (выход за границу массива).

но дальше хуже.

hile (w<C[j]) and (j>=0) do

пока выполняется условие, мы

C[j+1]:=C[j];

затираем элементы массива.

j:=j-1

и уменьшаем j в отрицательную сторону.

Это что за алгоритм сортировки?!


И, если Вам алгоритм сортировки можно любой использовать, то я могу предложить сортировку методом простых обменов:

procedure sort (n: integer; var C:A);
var i,j: integer;
  w : integer;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if C[i]>C[j] then begin
        w:=C[i];
        C[i]:=C[j];
        C[j]:=w;
      end;
end;