функция и процедура Опции

[Armi]

нужна помощь срочно =) решить задачу по одномерному массиву через функцию, и задачу по двумерному массиву через процедуру. сами задачи уже решены, но вот через функцию и процедуру я решить не могу - по очень их понимаю

задача на одномерный массив: в целочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов.

Код

program massiv;
uses crt;
var
a,mas:array[1..100] of shortint;
i,n,k:byte;
begin
clrscr;
k:=0;
write ('vvedite n');
read(n);
for i:=1 to n do
  begin
  writeln('vvedite ',i,' chislo');
  read(a[i]);
   if a[i]=0 then
    begin
    k:=k+1;
    mas[k]:=i;
    end;
  end;
  for i:=1 to k do
  write(mas[i]);
end.

двумерный масив: дан массив А размером n*m. найти количество к особых элементов, считая элемент особым если он больше суммы остальных элементов его столбца.

Код

program zadacha;
uses crt;
var
max,s:integer;
i,j,k,n,m:byte;
a:array[1..100,1..100] of integer;
begin
clrscr;
max:=-32768;
k:=0;
write('vvedite n');
read(n);
write('vvedite m');
read(m);
for i:=1 to n do
  begin
  for j:=1 to m do
   begin
   write('vvedite element massiva');
   read(a[i,j]);
   end;
  end;
for j:=1 to m do
  begin
  for i:=1 to n do
   begin
   s:=s+a[i,j];
   if a[i,j]>max then
    begin
    max:=a[i,j];
    end;
   s:=s-max;
   end;
  if max>s then
   begin
   k:=k+1;
   write(max, ' ');
   max:=-32768;
   end;
  end;
writeln;
write(k);
end.