Помогите пожалуйста с 2-мя задачками

[art_melnichenko]

1. Тема работы - СТРОКОВЫЙ ТИП ДАННЫХ
Дан текст (массив символьных строк). Найти в тексте номер первой по порядку группы цифр, начинающейся цифрой 2.


2. Тема работы - РАБОТА С ДВУМЕРНЫМИ МАССИВАМИ
В работе необходимо максимально использовать аппарат процедур и функций.
В матрице определить минимальный элемент на главной диагонали. Строку, содержащую этот элемент, поменять местами со столбцом, число положительных элементов в котором максимально.

[Sazary]

Вторая:
Следует заметить, что если номер строки и номер столбца не совпадают, то один элемент теряется (тот, который на пересечении).

uses crt;
const n=5;
type matrix = array[1..n,1..n] of integer;   
var
M : matrix;
i,j,a,b : integer;

function minimum(mmm : matrix) : integer;   { функция нахождения минимума }
  var mi,mj : integer;
  begin
  mj := 1;       { считаем, что первый элемент диагонали - минимум }
  for mi:=1 to n do     { идем по главной диагонали }
    if mmm[mi,mi]<mmm[mj,mj] then mj := mi;   { если элемент меньше текущего минимума, запоминаем его }
  minimum := mj;      { возвращаем номер строки }
  end;

function maxstolb(mmm : matrix) : integer;  
  var mi,mj,k,c,nm : integer;
  begin
  c := 0;   { считаем, что в первом столбце 0 положительных элементов} 
  nm := 1;  
  for mj:=1 to n do   { проходим по всем столбцам }
    begin
    k := 0;   { зануляем счетчик для текущего столбца }
    for mi:=1 to n do     { идем по элементам столбца }
      if mmm[mi,mj]>0 then    { если элемент положительный... }
        inc(k); { увеличиваем счетчик }
    if k>c then   { если количество положительных эл-в в этом столбце больше }
       begin
       c := k;   { запоминаем количество  }
       nm := mj;  { запоминаем номер }
       end;
    end;
  maxstolb := nm;  { возвращаем номер }
  end;

procedure obmen(ti,tj : integer; var mmm : matrix); { принимаем номера троки и столбца }
  var mi,tmp : integer;
  begin
  for mi := 1 to n do  { идем по строке (где минимум нашли)  }
    begin
    tmp := mmm[mi,tj];      { обмениваем значения элементов строки и столбца }
    mmm[mi,tj] := mmm[ti,mi];
    mmm[ti,mi] := tmp;
    end;
  end;

begin
clrscr;
randomize;   { инициализируем генератор случайных чисел }
{ заполняем массив }
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    M[i,j] := random(20)-9;
    write(M[i,j]:4);  { ...и выводим сразу }
    end;
  writeln;
  end;
writeln;
{-----}
a := minimum(M);  { берем номер строки }
b := maxstolb(M);  { ...номер столбца }
obmen(a,b,M);   { и обмениваем }
{ выводим новую матрицу }
for i:=1 to n do
  begin
  for j:=1 to n do
  write(M[i,j]:4);
  writeln;
  end;

readln;
end.

[Sazary]

Первая:

uses crt;
const mn = ['0'..'9'];
var
s : string;
i,k : integer;
fl : boolean;  { флаг }
begin
clrscr;
writeln('Enter text:');
readln(s);  { читаем строку }
i:=1;  { текущий символ - первый }
k:=0;  { счетчик блоков цифр }
fl := false;  { 2 не найдена }
while i<=length(s) do  
  begin
  if s[i] in mn then   { если встретили цифру... }
    begin
    inc(k);   { увеличиваем счетчик }
    while s[i] in mn do  { идем до конца блока }
      begin
      if s[i] = '2' then   { если встретили 2... }
        begin
        fl := true;   { устанавливаем флаг }
        break; { выходим из цикла }
        end;
      inc(i);   
      end;
    end;
  if fl then break;   { если нашли 2, то выходим из внешнего цикла }
  inc(i);
  end;

writeln('Nomer gruppy: ',k);
readln;
end.

[art_melnichenko]

спасибо большое за задачки, кажись всё в как надо работает.
А можно к каждой строчке в программке написать комментарий, я то преподаватель спросит чё нибудь. Заранее ещё раз спасибо, очень выручили.

[Sazary]

Добавил в листинги