помогите в турбо паскаль: Группа Series

1:
var a:array[1..100]of integer;
x,i,n,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(x);
if(odd(x)) then
begin
k:=k+1;
a[k]:=x;
end;
end;
write(k,':');
for i:=1 to k do write(a:6);
writeln;
end.

2:
var a,k:integer;
begin
k:=0;
a:=1;
while(a<>0) do
begin
read(a);
k:=k+1;
end;
k:=k-1;
writeln(k);
writeln;
end.

3:
var a,k,n:integer;
begin
readln(k);
a:=1;
n:=-maxint;
while(a<>0) do
begin
read(a);
if(a>k)and(a>n)then n:=a;
end;
writeln(n);
writeln;
end.

4:
var n,i,a,a2:integer;
bool:boolean;
begin
bool:=false;
readln(n);
read(a2);
for i:=2 to n do
begin
read(a);
if(a<=a2) then bool:=true;
a2:=a;
end;
writeln(not(bool));
end.

1.
x:=(massive1)/2;
Если x=int(x) тогда х - четное иначе х - нечетное.
А уж как их выводить (или сосчитать) писать, наверное, не нужно: )

2. Два варианта.
а) t:=false;
for i:=0 to 100 do
begin
if N=0 then t:=true;
if t=false then
begin
Тут сам допишешь
end;
end;

б) for i:=0 to 100 do
begin
if N=0 then exit; (в Делфи работает)
end;

3. K2 - это последнее число. K - это заданное значение. M - массив с N
t:=false;
for i:=0 to 100 do
begin
if x=0 then t:=true;
if t=true then
begin
K2:=M[i-1];
if K2>K then writeln(inttostr(K2)) else writeln('0');
end;
end;

4.
M - массив с N. N - заданное значение.

P:=0;
X:=N;

for i:=0 to 100 do
begin
if M>X then
begin
P:=P+1;
X:=M;
end;
if M