матрица с неповторяющимися числами

[aiktz]

привет. прошу проверить правильность написания задачи,если есть ошибки или недочеты,прошу скажите...
задача: вывести матрицу 10*10 с неповтояющимися числами(с помощью Randomize и Random).

program matrica;
uses crt;
const n=10; m=10;
type a:array[1..n,1..m] of integer;
       b:array[1..n,1..m] of integer;
var
i,j,k:integer;
bool:boolean;
begin
clrscr;
randomize;
k:=n*m;
j:=2;
a(i):=int(Random(200));
Repeat
x:=int(Random(200))+1;
bool:=True;
for i:=1 to (j-1) do
if x:=a[i] then bool:=false
if bool then begin a[j]:=x;
j:=j+1;
end;
until j:=k and bool
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[((n-1)*m)+j];
write(a[i]);
writeln;
end;
end.

[Stilet]

В задании что-нибудь оговорено о методике получения элементов матрицы кроме этого?
Ведь куда проще получать новый элемент заранее зная что он уникален:

const n=5; m=5;
var a:array[1..n,1..m] of integer;
   i,j,k:integer;
begin
k:=3;
for i:=1 to n do begin
 for j:=1 to m do begin
  a[i,j]:=k+random(10);
  k:=k+10;
  write(a[i,j]:10);
 end;writeln;
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[aiktz]

кроме этого условия ничего не оговорено, спасибо)

[Stilet]

Да незачто, но учти эта рискованная хитрость - преподаватели не любят когда их уделывают так, так что можешь попасться под горячую лапу.

[aiktz]

Thanks Супер Модератор!

[Serge_Bliznykov]

aiktz
кстати, у Вас в программе были такие ошибки:
- Вы вместо VAR пытались написать Type - так нельзя. (типы описываются через знак = (равно), а переменные - через : (двоеточие)

- Элементы массива задаются через индексы в квадратных скобках (а не круглых, как у Вас)

- Матрица (массив) у Вас имеет ДВА индекса, поэтому, в Вашем случае написание a[i] - ошибочно - надо указывать ДВА индекса, например, a[i,j]

- в принципе не ошибка, но Random(Число) и так возвращает целое значение, его не надо приводить к INT() как это сделано у Вас.

ну, алгоритм самой проверки, есть ли такое число в матрице или ещё нет - я опускаю. Это вообще отдельная песня...

Да незачто, но учти эта рискованная хитрость - преподаватели не любят когда их уделывают так, так что можешь попасться под горячую лапу.

угу. я бы, если бы это сдавали мне, ОБЯЗАТЕЛЬНО попросил тут же, "чуточку" модифицировать программу, чтобы в матрице были неповторяющиеся числа от 1 до, например, 150...