Найти первый отрицательный элемент массива с помощью цикла с постусловием
repeat
< тело >
until < условие >
Напишите плиз программу на паскале

const n=10;var a:array[1..n] of integer;i: integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4); end;writeln;i:=0;repeati:=i+1;until (i>=n)or(a[i]<0);if a[i]>=0 then writeln('Нет отрицательных элементов')else writeln('Первый отрицательный элемент = a[',i,'] = ',a[i]);end.Пример:Массив A:   8   7   0  18 -13  -9   6 -16 -13  -2Первый отрицательный элемент = a[5] = -13