работа с массивом

[s2dentishe]

Всем добрый вечер, есть очень простая программка, но результат я совсем не могу понять, пожалуйста, помогите, разъясните в чем дело. Вот текст программки
program lab1;
uses crt,graph;
const
n=10;
m=100;
var i,j,k:integer;
mas:array [1..n,1..n] of integer;

begin
clrscr;
for k:=1 to m do
begin
randomize;
i:=random(n)+1;
j:=random(n)+1;
if (mas[i,j]=0) and (i<>j) then begin
mas[i,j]:=1;
mas[j,i]:=1; end;
end;

for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(mas[i,j]);
end;

readkey;
end.

на выходе ожидаю все единицы кроме главной диагонали, а выводит только 2 единицы и остальные нули

[Armorer]

ужасная программа=)
Но я понял почему 2 единицы.

for k:=1 to m do
begin
randomize;
i:=random(n)+1;
j:=random(n)+1;
if (mas[i,j]=0) and (i<>j) then begin
mas[i,j]:=1;
mas[j,i]:=1; end;
end;

во первых randomize запускается один раз в начале, а не в цикле.

во вторых он вообще нужен, также как и функ. random. При чем тут случайные числа?

Остальное тоже почти все неправильное)
вот код который решает задачу.

for i:=1 to m do
for j:=1 to n do
if i<>j then 
A[i,j]:= 1
else
A[i,j]:=0;

И в остальном пару косяков убрать еще надо.

[s2dentishe]

спасибо, за подсказку с randomize!