Подпрограммы

[murzic28]

Помогите составить программу решения задачи с использованием процедур в качестве подпрограмм: с параметрами и без параметров.
Задача: Найти номер наибольшего положительного элемента массива В(10). Массив В вывести на экран.

[Lemo]

а в чём проблема то?

[murzic28]

Я в этом вообще не соображаю!

[ROMA2PVT]

uses
 crt;
 type
  a=array[1..10] of integer;
 var
 i,n,max:integer;
 k:a;

 procedure MaXEl(Var m:a;c:integer);
 begin
 max:=1;
 for i:=1 to c do
 begin
  if m[i]>m[max] then
   max:=i;
   end;
   end;
   
 begin
 clrscr;
 randomize;
 write('введите количество элементов: ');
 readln(n);
 for i:=1 to n do
 begin
  k[i]:=random(10)-5;
  end;
  writeln('исходный массив');
  for i:=1 to n do begin
   write(k[i],' ');
   end;
   
   Maxel(k,n);
   
   writeln('номер максимального элемента',' ',max);
   writeln('максимальный элемент',' ',k[max]);
   readln;
   end.

Вот те с параметрами.