Сортировка...

[Светлана11]

Помогите, пожалуйста! Очень нужна помощь по информатике.
одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50.
1) использовать сортировку простыми вставками. 2) упорядочить массив по возрастанию. Вставить число В так, чтобы упорядоченность не нарушилась.

[Adyvan]

uses crt;
const r = 10;
var a:array [1..r+1] of integer;
t,q,b,rab: integer;
begin
clrscr;
randomize;
for t:=1 to r do
a[t]:=random(101)-50;

write('Masiv: ');
for t:=1 to r do
write(a[t],' ');
writeln;

for t:=1 to r-1 do
for q:=t to r do
if(a[t]>a[q])then
begin
rab:=a[t];
a[t]:=a[q];
a[q]:=rab;
end;

writeln('po vozrostaniy: ');
write('masiv: ');
for t:=1 to r do
write(a[t],' ');
writeln;

write('vvedite b: ');
readln(b);

for t:=1 to r do
if(a[t]>=b) then
break;
rab:=a[t];
a[t]:=b;
for q:=t+1 to r do
begin
b:= a[q];
a[q]:=rab;
rab:=a[q+1]
end;

write('masiv: ');
for t:=1 to r do
write(a[t],' ');
writeln;
readln;

end.

[Adyvan]

можно было использовать процедуру для отоброжения масива, просто уж часто повторяеться один код:

write('Masiv: ');
 for t:=1 to r do
 write(a[t],' ');
 writeln;

[Светлана11]

оо, спасибо большое :*
ты мне очень помог!