Матрица

[Dari22]

Здраствуйте помогите пожалуйста. Заранее спасибо!
Задана матрица A размерностью 6x3. Выбрать произвольно элемент A(i,j) и удалить строчку, в которой он находится.

[newerow1989]

var i, j, el: integer;
    a: array[1..6, 1..3] of integer;
    flag: boolean;
begin
   Randomize;
   for i:=1 to 6 do
   begin
      for j:=1 to 3 do
      begin
         a[i, j]:=Random(21);
         Write(a[i, j]:3, '  ');
      end;
      Writeln;
   end;
   Writeln;
   Write('el = '); Readln(el);
   for i:=1 to 6 do
   begin
      flag:=false;
      for j:=1 to 3 do
         if a[i, j]=el then
            flag:=true;
      if not flag then
      begin
         for j:=1 to 3 do
            Write(a[i, j]:3, '  ');
         Writeln;
      end;
   end;
   Readln;
end.