Двухмерный массив

uses crt;
const n=5;
type h=array[1..n,1..n] of integer;
     g=array[1..n] of byte;
var a: h; i,j,k: byte; b: g; c,p: integer;
 
procedure num (a: h; p: integer; var b: g);     {процедура определения 1-ого элемента, который больше заданного параметра}
begin
j:=0;
for i:=1 to n do
begin
repeat
inc(j);
if j>n then b[i]:=0
else if a[i,j]>p then b[i]:=j;
until (b[i]>0) or (j>n);
j:=0;
end;
end;
 
begin
 
randomize;
clrscr;
 
writeln('исходный массив: ');     {вывод исходного массива}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
 
writeln('отсортированный массив <1>: ');      {сортировка массива и его вывод на экран}
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
begin
c:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=c;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
 
write('введите значение определяющего параметра: ');     {поиск и вывод позиций эелементов, больших заданного параметра}
readln(p);
clrscr;
writeln('значение определяющего параметра = ',p,^j);
num(a,p,b);
for i:=1 to n do
begin
write(i,'-я строка - ');
if b[i]>0 then writeln(b[i],'-й элемент')
else writeln('элементов больших заданного в строке нет');
end;
writeln;
 
writeln('отсортированный массив <2>: ');    {построчная сортировка и вывод массива}
for i:=1 to n-1 do
for k:=i+1 to n do
if b[i]>b[k] then
begin
for j:=1 to n do
begin
c:=a[i,j];
a[i,j]:=a[k,j];
a[k,j]:=c;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
 
end.