Вот такие задачи:
1.Описать функцию,которая возвращаетномер позиции первого(слева) вхождения в запись числа типа Longint цифры k(k [0,9]).
2.Использовать подпрограммы (ввода,вывда,обрабатывающей части).Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них,в которой находиться максимальный из отрицателных элементов матриц.Считать что такая матрица одна.
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;