запутался в процедурах

[world12_tk]

День добрый... у меня возникла проблема, которую не могу решить... Мне дали задание написать прогу с использованием процедур... Вот что я накалякал....
program p11;
const
N=10;
type
massiv=array[1..N] of integer;
a_p=array[1..N] of integer;
procedure input(a:massiv);
var
mass:integer;
pos:integer;
begin
for pos := 1 to N do
begin
writeln ('введите ',pos,'-ый элемент последовательности*');
readln(mass);
a[pos] :=mass;
end;
writeln;
end; {конец процедуры ввода}

procedure processing (var pos:integer; a:massiv; a_l:a_p);

var
last : boolean;
i:integer;
begin
last := a[1] >= 0;
pos := 1;
for I := 2 to N do
begin
if(last <> (a[i] >= 0)) then
begin
a_l[pos] := i;
inc(pos);
last := not last;
end;
end;
end; {конец процедуры обработке}

procedure output(var pos:integer; a_l:a_p);
var
i:integer;

begin
writeln('знак меняется: ');
for i:= 1 to pos-1 do
write(a_l[i], ',');

Writeln;
write('**нажмите любую клавишу');
readln;
end; {конец процедуры вывода}
var
a:massiv;
a_l:a_p;
begin
input(a); !!!!!!
processing(a,a_l); !!!!!
output(pos;a_l); !!!!!!
end.
ТАк вот, я не могу понять что нужно написать в скобках, где поставлены
знаки !!!!.... Помогите пожалуйста.... В ходе компиляции pascal выдает ошибку Type mismatch... Заранее спасибо

[Пепел Феникса]

мдя...я промолчу про двойное обьявление одного и того же типа, видимо тебе так нужно...попробуй вот так
кстати pos не стоит использовать как идентификатор(такая функция есть)

program p11;
const
 N=10;
type
 massiv=array[1..N] of integer;
 a_p=array[1..N] of integer;
procedure input(a:massiv);
var
 mass:integer;
 posit:integer;
begin
 for posit := 1 to N do
  begin
  writeln ('введите ',posit,'-ый элемент последовательности*');
  readln(mass);
  a[posit] :=mass;
  end;
  writeln;
end; {конец процедуры ввода}

procedure processing (var posit:integer; a:massiv; a_l:a_p);

var
 last : boolean;
 i:integer;
begin
 last := a[1] >= 0;
 posit := 1;
 for I := 2 to N do
  begin
   if(last <> (a[i] >= 0)) then
    begin
     a_l[posit] := i;
     inc(posit);
     last := not last;
    end;
  end;
end; {конец процедуры обработке}

procedure output(var posit:integer; a_l:a_p);
var
 i:integer;

begin
 writeln('знак меняется: ');
 for i:= 1 to posit-1 do
 write(a_l[i], ',');

 Writeln;
 write('**нажмите любую клавишу');
 readln;
end; {конец процедуры вывода}
var
 position:integer;
 a:massiv;
 a_l:a_p;
BEGIN
 input(a);
 processing(position,a,a_l);
 output(position,a_l);
END.

я проверял, все работает...но я не знаю выводит ли она то что тебе нужно(сами процедуры я полностью оставил на твоей совести, кроме того что исправил идентификатор)

[world12_tk]

Огромное спасибоза помощь... но я так и не понял две вещи:
1. для чего мы пишим, а главное какие переменные при вызове процедур...
2.для чего была объявлена переменная position

[Пепел Феникса]

1)переменные этих процедур ты установил сам, их и нужно передавать в вызове
2)position нужна для этих функций

procedure processing (var posit:integer; a:massiv; a_l:a_p);
procedure output(var posit:integer; a_l:a_p);

[world12_tk]

хм..... но ведь в параметрах процедур написано posit, а не position....
Я наверно что то в процедурах не правильно написал... Не поможете????? моя программа должна определять сколько раз меняется знак в данной последовательности чисел, запоминать намера позиций, в которых меняется знак.

[Пепел Феникса]

то что описанно в обьявлении процедуры то внутренняя переменная она существует только внутри процедуры, и ей нужно присвоить какое-то значение(это и есть переменная position)

попробуй так:

procedure processing (var posit:integer; a:massiv; a_l:a_p);
var
 flag:boolean;
 i:integer;
begin
 posit:=0
 flag:=false;
 for i:=2 to n do
  if (a[i-1]<=0 and a[i]>0) or (a[i-1]>=0 and a[i]<0) then 
   begin
    posit:=posit+1;
    if flag=false then begin flag:=true; a_l[posit]:=a[i-1];end;
    a_l[posit+1]:=a[i];
   end;
 posit:=posit+1;
end;

procedure output(var posit:integer; a_l:a_p);
var
 i:integer;
begin
 write('знак меняется 'posit' раз: ');
 for i:= 1 to posit do
 write(a_l[i], ',');
 Writeln;
 write('**нажмите любую клавишу');
 readln;
end;

[world12_tk]

большое спасибо..... вы мне очень помогли