массивы. паскаль

[cold-hands]

сравнить элементы массива B с элементами массива С и записать в массив А значения элеметов массива В, которых нет в массиве С

program lab_12;
uses crt;
const n=5;
type mas=array[1..n] of integer;
procedure P(B,C:mas; var A:mas; var k:integer);
var i,j:integer;
begin
   i:=1;
   j:=1;
   k:=1;
   for i:=1 to n do
   for j:=1 to n do
   if B[i]=C[j] then j:=j+1;
   if B[i]<>C[j] then A[k]:=B[i];
   repeat i:=1 until j>n;
end;
begin
     clrscr;
     writeln ('vvedite massiv B');
     for i:=1 to n do
     begin
     write ('b[',i,']=');
     readln (b[i]);
end;
begin
     writeln ('vvedite massiv C');
     fot j:=1 to n do
     begin
     write ('c[',j,']=');
     readln (c[j]);
end;
writeln (P(A,k);
readln;
end.

[__STDC__]

program lab_12;
uses crt;
const n=5;
type mas=array[1..n] of integer;
var 
	A,B,C:mas;
	i,k:integer;

procedure P(B,C:mas; var A:mas);
var i,j:integer;
	cond:boolean;
begin
i:=1;
j:=1;
k:=0;
for i:=1 to n do begin
   for j:=1 to n do 
      if B[i]<>C[j] then 
         cond:=true
	  else begin cond:=false; break; end;
	if (cond=true) then begin
	   inc(k);
		A[k]:=B[i];
	end;
   end;
end;

begin
   clrscr;
   writeln ('vvedite massiv B');
   for i:=1 to n do begin
      write ('b[',i,']=');
      readln (b[i]);
   end;
   writeln ('vvedite massiv C');
   for i:=1 to n do begin
      write ('c[',i,']=');
      readln (c[i]);
   end;
   P(B,C,A);
   for i:=1 to k do 
	  writeln(A[i]);
   readln;
end.

[Sazary]

Это что? Где вопрос?
Для кода используйте не QUOTE, а CODE.

По задаче:
Кошмар!

for j:=1 to n do
if B[i]=C[j] then j:=j+1;

Нельзя изменять переменную-счетчик в цикле for!
Переменные i,j и все массивы не объявлены в программе!
А эта вообще убийственная строчка:

writeln (P(A,k);

------------------------------------
Ошибок куча. Вы это вообще запускали?

program lab_12;
uses crt;
const n=5;
type mas=array[1..n] of integer;

procedure P(B,C:mas; var A:mas; var k:integer);
var i,j:integer;
fl : boolean;
begin
k := 0;
for i:=1 to n do
 begin
 fl := false;
 for j:=1 to n do
  if B[i]=C[j] then fl := true;
 if not fl then
  begin
  inc(k);
  A[k] := B[i];
  end;
 end;

end;

var i,k : integer;
A,B,C : mas;

begin
clrscr;
writeln ('vvedite massiv B');
for i:=1 to n do
 begin
 write ('b[',i,']=');
 readln(b[i]);
 end;

writeln ('vvedite massiv C');
for i:=1 to n do
 begin
 write ('c[',i,']=');
 readln (c[i]);
 end;

P(B,C,A,k);
writeln ('massiv A:');
for i:=1 to k do
 write(A[i]:4);

readln;
end.

[__STDC__]

Вот вариант получше в части процедуры (как мне кажется):

uses crt;
const 
        n=5;
type 
	mas=array[1..n] of integer;
	mas_set=set of byte;

procedure P(var A:mas; B:mas; C:mas_set; var k:integer);
var
	i:integer;
begin
i:=1; 
for i:=1 to n do 
	if not(B[i] in C) then begin 
		inc(k);
		A[k]:=B[i];
	end;
end;

var 
	A,B:mas;
	C:mas_set;
	i,k,num:integer;

begin
   clrscr;
   C:=[]; k:=0;
   writeln ('Input B and C arrays:');
   for i:=1 to n do begin
      write('b[',i,']=');
      readln(b[i]);
      writeln('-------------');
      write('c[',i,']=');
      readln(num);
      C:=C+[num];
      writeln('-------------');
   end;
   P(A,B,C,k);
   for i:=1 to k do 
	  writeln(A[i]);
   readln;
end.

еще нижние циклы объединил...

[cold-hands]

спасибо огромное)
да, кошмар) я только учусь))