Пожалуйста помогите. Матрица.

[SIZE=2]
uses crt;
const n=20;
var a:array[1..n] of integer;
i,j,x,k:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do {создаем и выводим массив}
   begin
     a[i]:=random(10);
     write(a[i],' ');
   end;
writeln;
for i:=1 to n-1 do {сортируем его по убыванию}
for j:=1 to n-1 do
if a[j]<a[j+1] then
    begin
      x:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=x;
    end;
k:=0;
for i:=1 to n do {ищем первые два одинаковые рядом}
if a[i]=a[i+1] then {если находим}
    begin
      writeln('Naibolshee > 1 raza =',a[i]);{выводим}
      readln;
      k:=k+1; {к=1}
      exit;  {выходим из программы} 
end;
if k=0 then writeln('Takogo chisla net!');{если нет, сообщаем}
readln
end.
[/SIZE]

[SIZE=2]
uses crt;
const n=5;
        m=6;
var a:array[1..n,1..m] of integer;
     b:array[1..n*m]of integer;
     i,j,x,k,t:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do {создание и вывод матрицы}
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:4);
        end;
     writeln;
   end;
k:=0;
for i:=1 to n do {разворачиваем матрицу в линейный массив}
    begin
       for j:=1 to m do
          begin
            k:=k+1;
            b[k]:=a[i,j];
          end;
     end;
for i:=1 to k-1 do {дальше все как в первый раз, с массивом}
for j:=1 to k-1 do
if b[j]<b[j+1] then
    begin
      x:=b[j];
      b[j]:=b[j+1];
      b[j+1]:=x;
    end;
t:=0;
for i:=1 to k do
if b[i]=b[i+1] then
   begin
      writeln('Naibolshee > 1 raza =',b[i]);
      readln;
      t:=t+1;
      exit;
   end;
if t=0 then writeln('Takogo chisla net!');
readln
end.
[/SIZE]