Паскаль. Процедуры

[Ондрюша]

Сформировать одномерный массив. Найти количество положительных и отрицательных элементов.

[BDA]

Ну, что не получается?)

[Ондрюша]

Program laba;
Var i,n,pol,otr:integer;
a:array[0..100] of integer;
Begin
Writeln('введите размерность');
readln(n);
For i:=1 to n do a[i]:=random(100)-50;
For i:=1 to n do write(a[i]:7);
Writeln(' ');
pol:=0;
pol:=0;
For i:=1 to n do Begin
If a[i]>0 then pol:=pol+1;
If a[i]<0 then otr:=otr+1;
End;
Writeln('количество положительных элементов =',pol);
Writeln('количество отрицательных элементов =', otr);
End.
Надо переделать через процедуры.

[BDA]

program laba;

type
  arr = array[0..100] of integer;

var
  n: integer;
  a: arr;

procedure createarray(var b: arr; count: integer);
var
  i: integer;
begin
  for i := 1 to count do b[i] := random(100) - 50;  
end;

procedure printarray(var b: arr; count: integer);
var
  i: integer;
begin
  for i := 1 to count do write(b[i]:7); 
end;

function positive(var b: arr; count: integer): integer;
var
  i, c: integer;
begin
  c := 0;
  for i := 1 to count do 
    if b[i] > 0 then inc(c);
  positive := c;
end;

function negative(var b: arr; count: integer): integer;
var
  i, c: integer;
begin
  c := 0;
  for i := 1 to count do 
    if b[i] < 0 then inc(c);
  negative := c;
end;

begin
  randomize;
  Writeln('введите размерность');
  readln(n);
  createarray(a, n);
  printarray(a, n);
  Writeln;
  Writeln('количество положительных элементов = ', positive(a, n));
  Writeln('количество отрицательных элементов = ', negative(a, n));
end.

Или так:

program laba;

type
  arr = array[0..100] of integer;

var
  n, pos1, neg1: integer;
  a: arr;

procedure createarray(var b: arr; count: integer);
var
  i: integer;
begin
  for i := 1 to count do b[i] := random(100) - 50;  
end;

procedure printarray(var b: arr; count: integer);
var
  i: integer;
begin
  for i := 1 to count do write(b[i]:7); 
end;

procedure statistic(var b: arr; count: integer; var c1, c2: integer);
var
  i: integer;
begin
  c1 := 0;
  c2 := 0;
  for i := 1 to count do 
    if b[i] > 0 then inc(c1)
    else
    if b[i] < 0 then inc(c2);
end;

begin
  randomize;
  Writeln('введите размерность');
  readln(n);
  createarray(a, n);
  printarray(a, n);
  statistic(a, n, pos1, neg1);
  Writeln;
  Writeln('количество положительных элементов = ', pos1);
  Writeln('количество отрицательных элементов = ', neg1);
end.

[Ондрюша]

Спасибо огромное