Задание с массивами:)

[neomax38]

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

[Niro]

Писал что сразу пришло в голову
код не проверял

var st: string;
   ch,i,j: integer;
BEGIN
for i:=1 to 15 do
begin
  str(T[i],st);
  for j:=1 to length(st)
  begin
     val(st[i],ch,x);
     if ch=c then pr:=1;
  end;
  if pr<>1 then B[i]:=T[i];
  pr:=0;
end;
END.

[totenkopf92]

помогите пожалуйста с этой задачей : даны координаты вершин нескольких треугольников. Определить номер треугольника, имеющего наибольшую высоту.