Помогите решить плиз, Задачи на процедуры и функции Опции

[nblazhko]

Вот такие задачи:
1.Описать функцию,которая возвращаетномер позиции первого(слева) вхождения в запись числа типа Longint цифры k(k [0,9]).

2.Использовать подпрограммы (ввода,вывда,обрабатывающей части).Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них,в которой находиться максимальный из отрицателных элементов матриц.Считать что такая матрица одна.

P.S. Поиском не нашел

[Lapp]

P.S. Поиском не нашел

А сам что сделал? Покажи. Поможем.

В первой можешь использовать вот такую конструкцию:

  i:=0;
  while n>0 do begin
    if n mod 10=k then i:=1 else if i>0 then Inc(i);
    n:=n div 10
  end;

Это, конечно, если не пользоваться процедурой Str