Используя датчик случайных чисел, заполнить двумерный массив не повторяющимися числами. Нужно на языке Паскаль.

uses crt;

const a=10;

b=15;

var mas : array [1 ... a, 1 ... b] of integer;

i, j, f, k, l : integer;

begin

write ('Ìàññèâ');

writeln;

for i:=1 to a do

for j:=1 to b do

begin

repeat

f:=0;

mas[i, j]:=-10+random (a*b+1);

for k:=1 to a do

for l:=1 to b do

if (mas[i, j]=mas[k, l]) then inc (f);

until f=1;

end;

for i:=1 to a do

begin

for j:=1 to b do

begin

write (mas[i, j]:4);

end;

writeln;

end;

end.