Создать массив из 20 случайных чисел от -50 до 50 и удалить первый отрицательный элемент этого массива - Free Pascal

Формулировка задачи:

Создать массив из 20 случайных чисел от -50 до 50 и удалить первый отрицательный элемент этого массива, затем вывести полученный массив на экран. Если такового не нашлось, то вывести неизмененный массив. (P.s. Начались Многомерные Массивы) Заранее Спасибо!

Решение задачи: «Создать массив из 20 случайных чисел от -50 до 50 и удалить первый отрицательный элемент этого массива»

Листинг программы

uses crt;
var a:array[1..20] of integer;
    n,i,ip,j:byte;
begin
clrscr;
randomize;
n:=20;
writeln('Массив A');
ip:=0;
for i:=1 to n do
 begin
  a[i]:=-50+random(101);
  write(a[i]:4);
  if(ip=0)and(a[i]<0)then ip:=i;
 end;
writeln;
if ip=0 then
 begin
  writeln('В массиве нет отрицательных элементов');
  writeln('Массив не изменяется');
  for i:=1 to n do
  write(a[i]:4);
 end
else
 begin
  writeln('Первый отрицательный a[',ip,']=',a[ip]);
  writeln('Его удаление');
  if ip=n then n:=n-1
  else
   begin
    for i:=ip to n-1 do
    a[i]:=a[i+1];
    n:=n-1;
   end;
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.

Объяснение кода листинга программы

Объявлены переменные: — a: массив из 20 целых чисел; — n: количество элементов в массиве (20); — i: счётчик элементов массива; — ip: счётчик первого отрицательного элемента; — j: счётчик индекса элемента для вывода.
Задана начальная установка: — Установлена начальная случайная последовательность чисел в массиве a; — Выводится начальное значение массива A; — Установлен счётчик ip в 0.
В цикле пройдено по всем элементам массива a: — Каждый элемент массива a обновляется случайным числом от -50 до 50; — Если текущий элемент отрицательный и это первый такой элемент, то обновляется счётчик ip; — Выводится значение текущего элемента массива a.
После цикла проверяется значение счётчика ip: — Если ip=0, то выводится сообщение о том, что в массиве нет отрицательных элементов; — Если ip не равно 0, то выводится сообщение о том, что первый отрицательный элемент найден; — Выводится значение первого отрицательного элемента массива a; — Удаляется первый отрицательный элемент массива a; — Если удаление было выполнено, то выводится обновлённый массив A.
Запрошен ввод с клавиатуры для завершения работы программы.