Pascal. Одномерные массивы разрешенных и неразрешенных значений.

[FatCat]

Задание: Вводится длина вектора и значения его элементов.
Вводится дополнительный вектор разрешенных значений. Составить вектор из элементов исходного вектора, имеющих неразрешенные значения.
Моё решение: Program LAB1;
Uses crt;
var A:array[1..100] of integer;
B:array[1..100] of integer;
Razm,RRM,I,J:integer;
begin
clrscr;
writeln('Vvedi razmer massiva!(znachenie dolzhno bit bolshe 0)');
Readln(Razm);
For I:=1 to Razm do
Begin
Writeln('Vvedite ', I , ' element massiva');
Readln(A[I]);
end;
Writeln('Isxodnii massiv');
For I:=1 to Razm do
Write(A[I]:3);
Writeln;
Writeln ('vvedi razmer massiva razreshennih znachenii');
readln(RRM);
For J:=1 to RRM do
Begin
Writeln('Vvedite ', J ,' razreshennoe znacenie!');
Readln(B[J]);
end;
Writeln('Massiv razreshennix znaceniy');
For I:=1 to RRM do
Write(B[I]:3);
Writeln;
Writeln('Massiv nerasrehennix chisel!');
For J:=1 to RRM and i:=1 to Razm do
If A[I]<>B[j] then Write(A[I]:3) else Write(' ':3);
readkey;
end.
В результате программа выводит не те значения, которые надо. Помогите исправить. И как сделать входной контроль, на ввод отрицательных чисел и букв?

[puporev]

Program LAB1;
Uses crt;
var A,B:array[1..100] of integer;
    Razm,RRM,I,J,k:integer;
    s:tring;
    t,c:integer

begin
clrscr;
repeat  //вводим размерность массива с проверкой диапазона
writeln('Vvedi razmer massiva A (znachenie dolzhno bit bolshe 0)');
Readln(Razm);
until (Razm>0)and(Razm<=100);
For I:=1 to Razm do  //вводим элементы массива с проверкой правильности ввода символов
  begin
   Write('A[',I,']=');
    repeat
    readln(s); //вводим число как строку
    val(s,t,c); //преобразуем в число
    if c<>0 then //если это не число
    writeln('Vveden nevernyj simvol. Povtorite vvod: ');//сообщаем
    until c=0;
    A[i]:=t; //присваиваем значение
   end;
repeat
Writeln ('vvedi razmer massiva razreshennih znachenii B:');//тоже с массивом В
readln(RRM);
until (Razm>0)and(Razm<=100);
For J:=1 to RRM do
 begin
   Write('B[',j,']='); //то же с массивом В
   repeat
   readln(s);
   val(s,t,c);
   if c<>0 then
   writeln('Vveden nevernyj simvol. Povtorite vvod: ');
   until c=0;
   B[j]:=t;
 end;
clrscr; //очищаем экран
Writeln('Isxodnii massiv A:');//выводим оба массива
For I:=1 to Razm do
Write(A[i],' ');
Writeln;
Writeln('Massiv razreshennix znaceniy B:');
For I:=1 to RRM do
Write(B[i]:3);
Writeln;
Writeln('Massiv nerasrehennix chisel!'); //ищем в массиве В числа из массива А. Если не находим, выводим на экран
For J:=1 to Razm do
  begin
    k:=0;
    for i:=1 to RRM do
    If A[j]<>B[i] then k:=k+1;
    if k=RRM then //если нет ни одного совпадения
    Write(A[j],' ');
  end;
readkey;
end.

[puporev]

Немного неправильно сделал, внес изменения.