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.