Из массива V получить массив G, удалив из массива V элементы, равные С

var ar:array[1..10] of integer;ar2:array[1..10] of integer;c,i,k:integer;begin;randomize;readln(c);writeln('First array:');for i:=1 to 10 do begin;  ar[i]:=random(10);  write(ar[i]:4);  if ar[i]<>c then   begin;    inc(k);    ar2[k]:=ar[i];   end; end;writeln;writeln('Final array:');for i:=1 to k dowrite(ar2[i]:4);end.