Помогите пожалуйста паскаль, напишите программки С клавиатуры вводится массив. Ямой именуется

1.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if (igt;1) and (ilt;n) and(a[i-1]gt;a[i]) and (a[i+1]gt;a[i]) and (a[i]lt;min)

   then min:= a[i];

end;

if min= 10000

 then min:= 0;

writeln('Самая глубочайшая яма: ',min);

end.

2.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,o:integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n-1 do

begin

 if (a[i]*a[i+1]gt;0) and (((a[i]+a[i+1]) mod 7)=0)

   then o+=1;

end;

writeln('Вывод: ',o);

end.

3.                                                                    

program raf105;

var

 s1,s2,s3:string;

 i,j,o:integer;

begin

writeln('Введите первую строчку:');

readln(s1);

writeln('Введите вторую строчку:');

readln(s2);

s3:=s2;

o:= pos(s1,s2);

if ogt;0

 then

 begin

   delete(s3,o,length(s1));

   s3+= s1;

 end

 else s3:='В строке "' + s2 + '" не найдено строчки "' + s1 + '"';

writeln(s3);

end.

Язык PascalABC