помогите пожалуйста.8_8. Дан массив. Отыскать 1-ый локальный минимум (локальный минимум

Паскаль?

да

Массив задается юзером либо может быть любым?

хоть каким

1)
var
a: 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]lt;a[2] then
         begin
           writeln('Локальный минимум:',a[1]);
           exit;
         end;
     for i:=2 to n do
       if (a[i]lt;a[i-1]) and (a[i]lt;a[i+1]) then
         begin
           writeln('Локальный минимум:',a[i]);
           exit;
         end;
      writeln('Локальный минимум:',a[n]);
           end.
2)
var
a: 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.