Помогите решить задачу c массивами. Паскаль

[lalka]

Помогите решить задачу c массивами. Паскаль

Всем привет. Нужен код программы для этой задачи

Задача:
Задать массив из 10 случайных чисел в интервале от -10 до 10. Вывести индекс первого элемента с отрицательным значением.

 

[poiu]

медвежья услуга, но все же...

program piupiu;
uses
crt;

type
Tmas = array [1..10] of integer;

var
mas: Tmas;
i: byte;

begin
clrscr;
randomize;
writeln('Massiv:');
for i:= 1 to 10 do
begin
mas:= -10 + random(20);
write(mas:4);
end;
writeln;
for i:= 1 to 10 do
if mas < 0 then
begin
writeln('Position first minus: ',i);
break;
end;
readln;
end.