Правила форума
Прочтите прежде чем задавать вопрос!
Код
program Sortirovka;
uses Crt;
var
M:array[1..100] of integer;
f,n,k,i:integer;
Error:integer;
Ch:char;
label l1,l2;
begin
repeat
ClrScr;
gotoxy (15,1);
writeln('текст');
gotoxy (13,2);
writeln('текст');
gotoxy (13,3);
writeln('текст');
gotoxy (27,5);
writeln('Внимание!');
gotoxy (14,6);
writeln('Размерность исходного массива должна быть');
gotoxy (15,7);
writeln('больше 2, но меньше 100 элементов');
gotoxy (10,8);
writeln('Элементы массива только целые числа от -1000 до 1000.');
gotoxy (12,12);
writeln('текст');
gotoxy (25,13);
writeln('текст');
gotoxy (21,14);
writeln('текст');
writeln(' ');
l1:
repeat
writeln(' ');
writeln('Введите значение n(2..100)');
{$I-}
readln(n);
error:=IOResult;
{$I+}
if (n<2) or (n>100) or (Error<>0) then
begin
writeln('Неверно задано n! Повторите ввод...');
end;
until (n>=2) and ((n<=100) and (Error=0));
writeln;
for i:=1 to n do
begin
repeat
writeln('Введите M[',I,'](-1000..1000):');
{$I-}
readln(M[I]);
error:=IOResult;
{$I+}
if (M[i]>1000) or (M[i]<-1000) and (error<>0) then
begin
writeln('Неверно задано M[',i,']');
end;
until (M[i]<=1000) and (M[i]>=-1000) and (error=0);
end;
writeln('Исходный массив:');
for i:=1 to n do
begin
write(M[i],',');
end;
repeat
f:=0;
for i:=1 to n-1 do
begin
if M[i]>M[i+1] then
begin
k:=M[i];
M[i]:=M[i+1];
f:=1;
M[i+1]:=k;
end;
end;
until (f=0);
writeln('');
writeln('Сортированный массив:');
for i:=1 to n do
begin
write(M[i],',');
end;
writeln;
writeln;
writeln('Хотите ли вы отсортировать еще один массив? y/n');
l2:
case readkey of
#89:goto l1;
#121:goto l1;
#78:exit;
#110:exit;
end;
goto l2;
until (Ch = #78) or (Ch = #110);
end.
Как будет выглядеть к ней блок схема?
хе-хе... а сначала очень удивилась... 
:D 