массив, сложный даже мысли нет как хделать Опции

[Ostin]

Дан одномерный массив А,размерностью1*n (2<=n<=20) элементы массива принимают от 0 до 20000 устанавливаются польхователем. Все положиттельные числа массива А записываются последовательно в массив В, а отрицательные в массив С. определить первое и последнее вхождение положительных и отрицательных чисел в массив А

[klem4]

                                 program stas3;
uses crt;
var
pf,pl,mf,ml:byte;
n:byte;
a,b,c:array [1..100] of integer;

i,nb,nc:integer;

begin
writeln ('vvidite n') ;
readln (n);
nb:=0;
nc:=0;
for i:= 1 to n do begin
readln (a[i]);
if a[i]>0 then begin
inc(nb);
b[nb]:=a[i]
end
else
 if a[i]<0 then begin
 inc(nc);
 c[nc]:=a[i];
 end;
 end;

  pf:=0;
  pl:=0;
  mf:=0;
  ml:=0;
  for pf:=1 to n do
  if a[pf]>0 then break;
  for pl:=n downto 1 do
  if a[pl]<0 then break;
  for mf:=1 to n do
  if a[mf]>0 then break;
  for ml:=n downto 1 do
  if a[ml]<0 then break;

end.

Убрал по крайней мере все синтаксические ошибки ...