Je v A a neni v B

Program AddNums(output);
var i,j,k,M,N, pocet:integer;
var Q: boolean;
A: array [1..4] of integer;
B: array [1..3] of integer;
C: array [1..10] of integer;
begin

A[1]:=1;
A[2]:=4;
A[3]:=6;
A[4]:=8;

B[1]:=2;
B[2]:=3;
B[3]:=8;

M:=3;
N:=4;
pocet:= 0;


i:=0;
j:=0;
k:=1;
Q:= False;
repeat begin
    i:=i+1;
    j:=0;
    repeat  j:= j+1;
            if  A[i] = B[j] then Q:=True;
    until j=M;
    end;

    if Q=False then begin C[k]:=A[i];
                        k:=k+1;
                        end;
pocet:=k-1;
until i=N;
k:=0;
repeat k:=k+1;
    writeln(C[k]);
until k=pocet;


end.