помогите пожалуйста.
8_8. Дан массив. Найти первый локальный минимум (локальный минимум – элемент, который меньше своих соседей).
8_9. Дан массив А, получить массив В:
А = {13, 7, 9 , 17 , 15 } --> В = {13, 7, 9 , 17 , 15 , 13, 7, 9 , 17 , 15 }

спасибо большое)

1)vara: array[1..100] of integer;i,n: integer;  begin  writeln('Введите кол-во элементов массива');    readln(n);    writeln('Массив:');     for i:=1 to n do       begin         a[i]:= random(50)+1;         write(a[i],' ' );       end;       writeln;       if a[1]<a[2] then         begin           writeln('Локальный минимум:',a[1]);           exit;         end;     for i:=2 to n do       if (a[i]<a[i-1]) and (a[i]<a[i+1]) then         begin           writeln('Локальный минимум:',a[i]);           exit;         end;      writeln('Локальный минимум:',a[n]);           end.2)vara: array[1..100] of integer;b:array[1..100] of integer;i,n,k: integer;  begin    writeln('Введите кол-во элементов массива');    readln(n);    writeln('Массив A:');     for i:=1 to n do       begin         a[i]:= random(50)+1;         write(a[i],' ' );         b[i]:=a[i];       end;       writeln;       writeln('Массив B:');        for k:=1 to 2 do          for i:=1 to n do             write(b[i],' ');     end.