задачи с массивом Опции

[Guest]

Меня моя девушка попросила решить задачки, а я в Паскале ничего не соображаю. Если не трудно подскажите, как их решить.
1.
Дан массив целых чисел. Определить, есть ли в нем хотя бы одна пара
"соседних" нечетных чисел. В случае ответа определить первый номер
элементов первой из таких пар.
2.
Дан массив действительных чисел. Из всех положительных элементов вычесть элемент с номером k1, из остальных - с номером k2.

[ShadowWatcher]

1

Код

Const
 SIZE = 10;
Var
 i:Integer;
 Data:Array[1..SIZE] Of Integer;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 For i:=1 To SIZE-1 Do
   If (Data[i] Mod 2 = 1) Then
     If (Data[i + 1] Mod 2 = 1) Then
     Begin
       WriteLn('Answer: ',i);
       Break
     End
End.

2)

Код

Const
 SIZE = 10
Var
 i:Integer;
 a:Array[1..SIZE] Of Double;
 k1,k2:Double;
Begin
 For i:=1 To SIZE Do
   ReadLn(Data[i]);
 Write('Enter K1: ');
 ReadLn(k1);
 Write('Enter K2: ');
 ReadLn(k2);
 For i:=1 To SIZE Do
   If (Data[i] > 0) Then
     Data[i] := Data[i] - k1
   Else
     Data[i] := Data[i] - k2;
 For i:=1 To SIZE Do
   WriteLn(Data[i])
End.