Разработать схему алгоритма который вводит массив из n целых чисел выволит номера отрицательных элементов и сами эти элементы

Блок-схема - во вложении.

Program Poliklolik;
const n=10;
var a:array[1..n] of integer;
 i: integer;
  begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK!            ***');
  for i:=1 to n do
  begin
    write('Введите ',i,'-e число ');
    readln(a[i]);
  end;
  writeln('отрицательные элементы массива: ');
  for i:=1 to n do
    if a[i]<0 then writeln(i,'-й:  ',a[i]);
  writeln('***        The end          ***');
end.

for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100

Cхема вывода номера отрицательного элемента и самого этого элемента.

for(i:=1 to n) do if a[i]<0 then write(i,' ',a[i],'      ');// a это массив по которому ты пробегешся.