Выяснить, можно ли получить 2-ой массив из 1-ого методом удаления элементов из 1-ого массива

Uses Crt;
Var A,B,C:array[1..100] of integer;
    i,j,n,m:byte;
    f:boolean;
Begin
    ClrScr;
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    write('Введите m: ');readln(m);
    For i:=1 to m do
    Begin
      write('B[',i,'] = ');
      readln(B[i]);
    End;
    writeln('Первый массив');
    For i:=1 to n do
     write(A[i]:4);
    writeln;
    writeln('Второй массив');
    For i:=1 to m do
     write(B[i]:4);
    f:=true;
    if n<m then f:=false
    else
    Begin
      i:=0;
      For i:=1 to m do
       For j:=1 to n do
        if B[i]=A[j] then 
        Begin
          C[i]:=1;
          A[j]:=0;
          break;
        End;
      For i:=1 to m do
       if C[i]=0 then f:=false;
    End;
    writeln;
    writeln(f);
    readln;
End.