Задан вектор Опции

[asu2006]

Задан вектор T(n) n>= 15. Сформировать вектор D из тех элементов массива Т, в десятичной записи которых не встречается заданная цифра С

[asu2006]

const n=15;
type
vector=array[1..n] of byte;
var
T, B: vector;
I,k: integer;
begin

for i:=1 to n do

begin
if (i>0) and (i<=11) then

k:=48;
k:=k+i;
write('T[', i,'] ');

writeln('B[', chr(k),']');
if (i>12) and (i<=15) then
k:=67;
k:=k+i;
write('T[', i,'] ');
writeln('B[', chr(k),']');
end;
readln;
end.

Это во так да?