Code:
PROGRAM NizBrojeva (input,output);
const
        DuzinaReda=10;
        BrojKolona=7;
TYPE
        pokazivac=^ElementListe;
        ElementListe=RECORD
                     broj:integer;
                     sledeci:pokazivac
                     END;
VAR
        poslednji:pokazivac;
        novi:pokazivac;
        prvi:pokazivac;
        prazan_red:boolean;
        broj_podataka:integer;

BEGIN
        poslednji:=NIL;
        REPEAT
         prazan_red:=true;
         write(output, 'Unesite sledeci broj:');
         WHILE NOT eoln DO
         [b] BEGIN
           new(novi);
           read(novi^.broj);
           novi^.sledeci:=poslednji;
           poslednji:=novi;
           prazan_red:=false
          END;[/b]
         readln
        UNTIL prazan_red;
        broj_podataka:=0;
        prvi:=poslednji;
        WHILE prvi<>NIL DO
         BEGIN
          [b]write(output, prvi^.broj:BrojKolona);
          prvi:=prvi^.sledeci;[/b]
          broj_podataka:=broj_podataka+1;
          IF (broj_podataka mod DuzinaReda)=0 THEN writeln (output)
         END;
        IF(broj_podataka mod DuzinaReda)<>0 THEN writeln(output);
        prvi:=poslednji;
        WHILE prvi<>NIL DO
        BEGIN
         poslednji:=prvi^.sledeci;
         dispose(prvi);
         prvi:=poslednji
        END
END.