вставить по одному элементу перед отрицательным элементом массива (паскаль)

[lexflax]

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

program tt;
Type
P= array [1..20] of integer;
m= array [1..40] of integer;
var x,k:integer;
procedure input (var a:p; var N:integer);
var i:integer;
begin
write ('vvod razmernosti massiva', N);
readln(n);
Write ('vvedite mas');
for i:= 1 to N do
readln(a[i]);
end;
procedure print (const b:m;const n:integer; var K:integer);
var i:= integer;
begin
K:= K+1;
B[k]:= a[i];
for i:= 1 to K do
write (B[i],' ');
writeln;
end;
begin
K:=0;
if A[i]<o then
begin
K:= k+1;
write ('vvedite chislo pered otrih chislom');
readln(x);
B[k]:= x;
end;
end;
begin
input (a,n);
print (b,N,K);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[phomm]

написана какая-то ерунда....работу не проверял, тяжко разбирать такое

в главной программе вызываются процедуры с передачей параметров, которые нигде не объявлены. все эти сущности : a, n, b, N необъявлены в var (а есть только var x,k:integer; ) в процедурах объявляются i а потом уже используются вне процедуры, не следишь за бегин-эндами !

здесь каша из бегинов и эндов, возможно косяк написания процедуры, а возможно ещё что-то... переписывай полностью, по правилам

begin
K:=0;
if A[i]<o then
begin
K:= k+1;
write ('vvedite chislo pered otrih chislom');
readln(x);
B[k]:= x;
end;
end;
begin
input (a,n);
print (b,N,K);
end;