Матрица., Своеобразный вывод матрицы. Опции

[AnTiDoD]

Здравствуйте, вот столкнулся с проблемой:
Дана матрица, найти в ней число k, и вывести все элементы марицы, которые <= k и,стоящие на той же(том же) строке(столбце), в другом цвете. - Эту часть сделал, но когда дано несколько k, то возникает проблема с сохранением определенных i и j. Для этого я взял отдельный массив l (x*2), который содержит в первом столбце определенный i и во втором, соответсвенно, j данного эл-та k.

Вот тест проги, помогите найти проблему:

uses crt;
var
  a:array[1..10,1..10] of integer;
  l:array[1..10,1..10] of integer;
  i, j, n, m, k, q, w,d :integer;
begin
  write('m=');
  readln(m);
  write('n=');
  readln(n);
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=Random(10);
  writeln('Ucxodnay matruca:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j],' ');
      writeln;
    end;
  write('k=');
  readln(k);
  q:=1;w:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=k then
       begin
        l[q,w]:=i;
        l[q,w+1]:=j;
        q:=q+1;
        w:=1;
       end;
  q:=1;w:=1;
  for i:=1 to n do
   begin
    for j:=1 to m do
      if a[i,j]<=k then
        for q:=1 to 10 do
          if (l[q,w]=i) or (l[q,w+1]=j) then
            begin
              TextColor(Red);
              write(a[i,j],' ');
              NormVideo;
              break;
            end
          else
      else
        write(a[i,j],' ');
    writeln;
   end;

  readkey;
end.

Сообщение отредактировано: AnTiDoD - 15.02.2007 18:15