Две задачки Опции

[Dushka]

Учитель по информатике сказал что задачки простые, но для меня они темный лес. Может сможете мне помочь. Заранее благодарна .
1. Найти количество цифр кратных старшей цифре числа
2. В массиве 7*7 расставить строки в порядке возрастания количество четных чисел в их

[Unconnected]

№2:

const m=7;
var mas:array [1..m,1..m] of byte;
    i,j:byte;

function getodd(st:byte):byte;
var i:byte;
begin
  result:=0;
  for i:=1 to m do if not(odd(mas[st,i])) then inc(result);
end;

Procedure swap(p1,p2:byte);
var i,buf:byte;
begin
  for i:=1 to m do begin
    buf:=mas[p1,i];
    mas[p1,i]:=mas[p2,i];
    mas[p2,i]:=buf;
  end;
end;

Procedure output;
var i,j:byte;
begin
  for i:=1 to m do begin
    for j:=1 to m do write(mas[i,j],' ');
    writeln;
  end;
  writeln;
end;

begin
  randomize;
  for i:=1 to m do for j:=1 to m do mas[i,j]:=random(50);
  output;
  for i:=1 to m-1 do
    for j:=m-1 downto i do if getodd(j)>getodd(j+1) then swap(j,j+1);
  output;
end.

Ozzя, да вроде не так всё запущено, бывает и хуже Я, кстати, рад, что хоть кому-то в школе задачки дают..)