Сделать так, чтобы выводилось сообщении при вводе отрицательного количества элементов массива

const r=100;
type arr=array[1..r] of integer;
var mas: arr;
type arry=array[1..r] of real;
var mass: arry;
i,n,c,b,v,t: integer;
 
 
{процедура сортировки массива целых чисел по возрастанию}
procedure InsertSort(mas: arr; m: integer); 
var i,j,k: integer;
begin
for i := 1 to m-1 do
for j := 1 to m-i do
if mas[j] > mas[j+1] then begin
k := mas[j];
mas[j] := mas[j+1];
mas[j+1] := k
            end;
write(' Результат: ');
for i:=1 to m do write(mas[i], ' '); {вывод массива}
end;
 
{процедура сортировки массива целых чисел по убыванию}
 
procedure InsertSortUB(mas: arr; m: integer); 
var i,j,k: integer;
begin
 for i := 1 to m-1 do
 for j := 1 to m-i do
 if mas[j] > mas[j+1] then begin
 k := mas[j];
 mas[j] := mas[j+1];
 mas[j+1] := k
 end;
write('Результат: ');
for i:=n downto 1 do write(mas[i], ' '); {вывод массива}
end;
 
{процедура сортировки массива вещественных чисел по возрастанию}
 
 
procedure InsertSortReal(mass: arry; m: integer);
var i,j: integer;
k:real;
begin
for i := 1 to m-1 do
for j := 1 to m-i do
if mass[j] > mass[j+1] then begin
k := mass[j];
mass[j] := mass[j+1];
mass[j+1] := k
end;
write('Результат: ');
for i:=1 to n do write(mass[i]:0:3, ' '); {вывод массива}
end;
 
{процедура сортировки массива вещественных чисел по убыванию}
 
procedure InsertSortRealUB(mass: arry; m: integer);
var i, j: integer;
k:double;
begin
for i := 1 to m-1 do
for j := 1 to m-i do
if mass[j] > mass[j+1] then begin
k := mass[j];
mass[j] := mass[j+1];
mass[j+1] := k;
end;
{вывод массива}
write('Результирующий массив: ');
for i:=n downto 1 do write(mass[i]:0:3, ' '); 
end;
 
 
{основной блок программы}
begin
c:=0;
 repeat 
write('Введите 1(для целочисленного массива) или 2(для вещественного массива):'); readln(c);
 if c=1 then begin
 repeat 
  write('Введите количество элементов в массиве(до 100 элементов) = ');
 read(n);
 if (n > r) then writeln ('Количество элементов превышает допустимый размер');
 if (n < 0) then writeln ('Некорректный ввод. Не допустимо вводить отрицательное количество эл-ов');
 
 until n <= r;
if n<=r then
 begin
 Writeln('Введите способ заполнения: 1(для ввода с клавиатуры), 2(для рандомного заполнения)');
 readln(v);
 if v=1 then begin
for i:=1 to n do                        {ввод массива}
begin
write(i,' элемент > '); read(mas[i]);
end;
writeln;
 end
 else
 if v=2 then begin
 randomize;
  for i:=1 to n do
  mas[i]:=70-Random(90);
 end
 else writeln('Вы не выбрали способ заполнения массива');
{вывод массива}
 
write('Исходный массив: ');
 for i:=1 to n do
  begin
   write(mas[i],' ');
 end;
 writeln;
 end
 else writeln('количество элементов превышает допустимый размер');
 writeln('Нажмите 1 для сортировки по убыванию, 2 для сортировки по возрастанию');
 read(t);
 if t=2 then begin
InsertSort(mas, n);                     {вызов процедуры}
 end
else if t=1 then
     InsertSortUB(mas, n);              {вызов процедуры}
 end
 else
 if c=2 then begin
 
 write('Количество элементов в массиве(<100) = '); read(n);
 if n<=r then
 begin
Writeln('Введите способ заполнения: 1(для ввода с клавиатуры), 2(для рандомного заполнения)');
 readln(v);
 if v=1 then begin
for i:=1 to n do                        {ввод массива}
begin
write(i,' элемент > '); read(mass[i]);
end;
 end
 else
 if v=2 then begin
 randomize;
  for i:=1 to n do
  mass[i]:=70-Random(90);
 end
 else writeln('Вы не выбрали способ заполнения массива');
 
{вывод массива}
write('Исходный массив: ');
for i:=1 to n do
  begin
   write(mass[i]:0:3,' ');
 end;
 writeln;
 end
 else writeln('количество элементов превышает допустимый размер');
 writeln('Нажмите 1 для сортировки по убыванию, 2 для сортировки по возрастанию');
 read(t);
 if t=2 then begin
InsertSortReal(mass, n);                {вызов процедуры}
 end
else if t=1 then
     InsertSortRealUB(mass, n);             {вызов процедуры}
 end
 else writeln('вы ввели неверный тип данных');
 writeln;
 
 
  repeat
  writeln('Продолжить работу? 1-да 2-нет');
 read(b);
 if b=2 then begin
      writeln('Работа завершена');
 end
 
   else if (b<>1) and (b<>2) then
       writeln('Неккоректный ввод, нужно было выбрать 1 или 2');
       until (b=1) or (b=2);
 until (b=2);
   end.

 if (n <= 0) then writeln ('Некорректный ввод. Не допустимо вводить не положительное количество эл-ов');
 
 until (n <= r) and (n > 0);

until n in [1..r];