сортировка простыми вставками

Ответ от Nnn7[гуру]
var m:array[1..100] of integer;
j,i,tmp,n:integer;
begin
randomize;
readln(n);
for j := 1 to n do
begin
m[j]:=random(5);
writeln(m[j]) end;
for j:=2 to N do
begin
i := j;
while M[ i ] < M[i-1] do
begin
tmp:=M[ i ];
m[ i ]:=M[i-1];
m[i-1]:=tmp;
i := i-1
end
end;
writeln;writeln;
for j := 1 to n do
writeln(m[j]);
readln
end.

ссылка заблокирована .ru/pascal/thread195485.html Здесь еще есть код, выглядит лучше. Сверяйся ищи ошибки.