Вывод результатов стрельбы

PROGRAM A1;
USES CRT;
CONST N=30;
VAR A:ARRAY[1..N,1..2]OF INTEGER;
 
X,Y,I,J:INTEGER;
BEGIN 
CLRSCR;
RANDOMIZE;
writeln('          Результаты стрельбы');
FOR I:= 1 TO N DO 
A[I,1]:=I;
 
FOR I:= 1 TO N DO 
FOR J:= 1 TO 100 DO BEGIN
   X:= RANDOM(100)-50; X:=ABS(X);   
                          
   IF X < 5 THEN A[I,2]:=A[I,2]+10;
   IF (X >= 5)  AND (X<10) THEN A[I,2]:=A[I,2]+9;
   IF (X  >= 10) AND (X<15) THEN A[I,2]:=A[I,2]+8;
   IF (X >= 15) AND ( X<20) THEN A[I,2]:=A[I,2]+7;
   IF (X  >= 20) AND (X<25) THEN A[I,2]:=A[I,2]+6;
   IF (X  >= 25) AND (X<30) THEN A[I,2]:=A[I,2]+5;
   IF (X  >= 30) AND (X<35) THEN A[I,2]:=A[I,2]+4;
   IF (X  >= 35) AND (X< 40) THEN A[I,2]:=A[I,2]+3;
   IF (X  >= 40) AND (X< 45) THEN A[I,2]:=A[I,2]+2;
   IF (X  >= 45) AND (X < 50) THEN A[I,2]:=A[I,2]+1; 
                  END;
 
x:=0;
for i:= 1 to n do begin
b[i,1]:=a[i,1];b[i,2]:=A[i,2];end;
for y:= 1 to n do begin 
for i:= 1 to n do begin 
if b[y,1] = a[i,1] then begin
     write(a[i,1]:2,'[',a[i,2],']','       ');
     x:=x+1;
     end;
     if x=3 then
     begin
     writeln;
     x:=0;
     end;
end;
end;
end.