Знаете... я в некоторой растерянности. Потому что сколько имею дело с Паскалем, но такого, чтобы имя внешней функции загонять в список формальных параметров процедуры - не видел. Кто-то из нас, либо я, либо Ваши преподы, того...
Ну ладно, а не хотите рассмотреть такой вариант (функцию нужно задать отдельно):
Код:
Procedure Razd(var a:Vect; m:byte; var k:byte);
var:
i,p,q:byte;
b,c:Vect;
begin
p:=0;
q:=0;
for i:=1 to m do
if F(a[i])<0 then
begin
Inc(p);
b[p]:=a[i];
end;
else
begin
Inc(q);
c[q]:=a[i];
end;
for i:=1 to p do a[i]:=b[i];
for i:=1 to q do a[p+i]:=c[i];
k:=p+1;
end;