Почему сцена разделена, как в декартовой системе координат? ​

Program prog; uses crt; var a: array [1..10] of integer;       i, max: integer; begin clrscr; randomize; max: =0; for i: =1 to 10 do       begin;       a[i]: = random(100);       if a[i]> max then max: =a[i];       writeln('a[',i,'] = ', a[i]);       end; writeln;         for i: =1 to 10 do       begin;       if a[i]> 55 then a[i]: =max;       writeln('a[',i,'] = ', a[i]);       end; end.

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, k : integer; begin

    readln(n);

    k: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if (a[i]> 6) and (a[i]< 10) then k: =k+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел=',k);     readln(); end.