Заданы два массива из 10 целых чисел каждый

[Mad_Cat]

в обоих местах

[maxim1592]

а сейчас???? правильно, программа выполняется, пишет что есть, только всегда пишет, а иногда цифру, 7, 9, и т.д.

const n=10;
var
A, b: array [1..n]of integer;
i,j,z,x:integer;
max:real;
begin
randomize;
write('ìàññèâ:');
writeln;
For i:=1 to n do
 Begin
  A[i]:=random(n); b[i]:=random(n);
 End;
for i:=1 to n do
begin
 write (a[i]:5);
 writeln;
end;
for i:=1 to n do
begin
 if (a[i]=0)or (b[i]=0) then
 begin
 writeln ('åñòü');
 break;
 end;
end;
end.