Визуализация сортировок одномерного массива

[PavelDD]

Всем доброго времени суток.Пишу с просьбой помочь с визуализацией. Прилагаю код сортировки. Но не могу произвести пошаговой печати построенного массива для простых вставок (т.е. установили элемент на место - напечатали массив; и т.д., снова).Заранее спасибо.

program vst;
uses crt;
type mas=array[0..1000]of integer;
Var a:mas;
i,j,k,n:integer;
Begin
 clrscr;
 Writeln('Введите размер массива: '); read(n);
 randomize;
 Writeln('Начальный массив:');
 Writeln;
 For i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
 for i:=2 to n do begin
    k:=a[i];
    j:=i-1;
    while (a[j]>k) and (j>1) do
    begin
     a[j+1]:=a[j];
     j:=j-1;
    end;
    if (a[j]>k) and (j=1) then
    begin
     a[2]:=a[1];
     a[1]:=k;
    end
    else a[j+1]:=k;
 end;
 Writeln;
 Writeln('Конечный массив:');
 Writeln;
 For i :=1 to n do
  write(a[i]:4);
End.

[execom]

По моему, вам не ответил потому что не совсем ясно что вы хотите сделать? Вы просто хотите вывести все промежуточные состояния массива от его ввода до получения ответа? сделайте что-то вроде:

var i1 : integer;
....
....
....
for i:=2 to n do begin
    k:=a[i];
    j:=i-1;
    while (a[j]>k) and (j>1) do
    begin
     a[j+1]:=a[j];
     j:=j-1;
     for i1:=0 to n do write(a[i1],' ');
     writeln;
    end;
    if (a[j]>k) and (j=1) then
    begin
     a[2]:=a[1];
     a[1]:=k;
     for i1:=0 to n do write(a[i1],' ');
     writeln;
    end
    else begin a[j+1]:=k;
       for i1:=0 to n do write(a[i1],' ');
       writeln;
    end; 
 end;
....
....
....

если же нет то растолкуйте подробней

[PavelDD]

Спасибо. Теперь все работает. На самом деле я как раз и хотел промежуточные выводы состояния массива. Оно и подразумевает мой нерешенный вопрос. Я просто вместо нового элемента i1 писал i и цикл делал от 1 до n.