помогите решить 2 задачки!

[zaq2000]

1) Обработка двумерного массива.
В целочисленной матрице размерности n*m вывест номера строк, элементы которых расположены по возростанию.

2) В последовательности из nцелых чисел определить процент четных элементов.

Заранее блогодарен тем кто поможет!

[Rusl92]

1 задача:

for i:=1 to n do
 begin
  k:=0; 
  for j:=1 to m-1 do
   if a[i,j]>a[i,j+1] 
     then k:=1
     else 
      begin
        k:=0;
        break;
      end;
   if k=1 then writeln(i);
 end;

[Rusl92]

2 задача

 procent:=0;
 readln(n);
 for i:=1 to n do
  begin
   read(a);
   if (a mod 2)=0
    then
     procent:=procent+1;
  end;
  procent:=procent/n;
  writeln(procent);

[zaq2000]

Что то у меня первая задача неидет.

[zaq2000]

помогите еще с одной задачей!

Составить программу обработки строк. Переставить все буквы латинского алфавита в начало строки в порядке следования.

[Rusl92]

3 задача легко решается с помощью множеств!