Ошибка в коде.

[fanyl]

Тоесть если ты ее запускаешь она тебе выводит числа которые делятся на 3 и не продолжает их выводить до бесконечности?

program ameba;
var
n: array [1..5, 1..8] of integer;
m: array [1..10, 1..6] of integer;
i,j: byte;
begin
Randomize;
for i := 1 to 5 do
for j := 1 to 8 do
n[i,j] := random(10);

for i := 1 to 10 do
for j := 1 to 6 do
m[i,j] := random(10);

for i := 1 to 5 do
for j := 1 to 8 do
if n[i,j] mod 3 = 0 then write(n[i,j], ' ');

readln;

for i := 1 to 10 do
for j := 1 to 6 do
if m[i,j] mod 3 = 0 then write(m[i,j], ' ');

ReadLn;
end.

вот теперь работает