Как вывести разреженную матрицу?

program lab12;
uses crt;
const n=5;
Type matr=array[1..3,1..n]of integer;
var a:matr;
    max2,max3,m:integer;
procedure vvod(var a:matr;var m:integer);
var i,j:integer;
begin
repeat
begin
writeln('vvedite kolichestvo stolbcov');
readln(m)
end;
until m<=5;
for i:=1 to 3 do
for j:=1 to n do
a[i,j]:=random(5)+1;
end;
procedure vivod(a:matr;m:integer);
var i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to m do
write (a[i,j]:4);
writeln;
end;
end;
procedure poisk(a:matr;m:integer;var max2,max3:integer);
var i,j:integer;
begin
max2:=a[2,1];
max3:=a[3,1];
for j:=1 to m-1 do
begin
if a[2,j]<a[2,j+1] then
max2:=a[2,j+1];
if a[3,j]<a[3,j+1] then
max3:=a[3,j+1];
end;
end;
procedure vuvod_2(a:matr;max2,max3:integer);
var i,j,k,p:integer;
 
begin
k:=1;
for i:=1 to max2 do
begin
  for j:=1 to max3 do
   begin
   p:=0;
    if (a[2,k]=i) and (a[3,k]=j) then
     begin
      p:=a[1,k];
      k:=k+1;
     end;
    write (p:4);
    end;
     writeln;
    end;
end;
begin
clrscr;
randomize;
vvod(a,m);
vivod(a,m);
poisk(a,m,max2,max3);
writeln(max2:3,max3:3);
vuvod_2(a,max2,max3);
readkey;
end.