Задачи на обработку массивов (Delphi)

[IT-man]

1)

i:=1;while (not odd(a[i])) and (i<n) do inc(i);
 k:=n;while odd(a[i]) and (k>1) do dec(k);
mn := i;
if k<=i then k:=n;
for M:= i to  k do
if (a[m]>=a[mn]) and odd(a[m]) then mn:=m;

2)

for i:=1 to m do begin
if a[i,i]=0 then
begin
for j:=1 to n do
a[j,i]:=a[j,i]+c[j];
end;
s:=s+a[i,i];

[Abstraction]

function IterateArray(arr : array[1..20] of Integer): Integer
var
sum, index : Integer;
begin
sum:=0
buf:integer;
WriteLn
for i:=1 to 20 do;
var
arr: array[1..20] of real;
n: integer;
sum, op: real;
i: integer;

{Вернуть из функции значение sum}
end;

Прошу прощения, но что в словах "комментарии не убирать" показалось непонятным? Код неверен, а с убранными комментариями я не могу понять, в реализации какого действия Вы напутали.

IT-man, и что это было? В первом варианте по mn неразличимы ситуации "ответа нет" и "ответ - n", во втором - забыли посчитать сумму.