Снова матрица...

USES Crt;
CONST
  N = 10;
  M = 10;
VAR
  D: ARRAY[1..M,1..N] of INTEGER;
  A, alt: ARRAY[1..N] of INTEGER;
  i, j, k: INTEGER;
BEGIN
Randomize;
FOR i := 1 to M
DO
  FOR j := 1 to N
    DO D[i,j] := random (100) + 5;
FOR i := 1 to M 
DO
  FOR j := 1 to N
    DO
      BEGIN
        WRITE(D[i,j], ' ');
        IF j=N
        THEN
          WRITELN
      END;           //ôîðìèðîâàíèå è âûâîä ìàòðèöû
FOR j := 1 to N
DO
  BEGIN
    A[j] := D[1, j];
    FOR i := 1 to M
    DO
      IF D[i, j] < A[j]
      THEN
        A[j] := D[i,j];   //ìàññèâ A õðàíèò ìèíèìàëüíûå ýë-òû ñòîëáöîâ
  END;
FOR j := 1 TO N      
DO                
  alt[j] := 0;
k := 1;
FOR j := 1 TO N
DO
  IF A[j] MOD 3 = 0
  THEN
    BEGIN
      alt[k] := j;
      Inc(k);
    END;            //ìàññèâ alt õðàíèò íîìåðà íóæíûõ ñòîëáöîâ ïî ïîðÿäêó
WRITELN;
FOR i := 1 TO M
DO
  FOR j := 1 TO k-1
  DO
    BEGIN
      WRITE(D[i,alt[j]], ' ');
      IF j = k - 1 
      THEN   
        WRITELN;
    END;
READLN
END.