Найти булеан и декартовое произведение А*А (Паскаль)

[werovulv]

Здравствуйте! У меня к Вам такой вопрос, как можно сделать прогу не чрез массив, и чтоб заполнение было из пустого множества, я что то не знаю)
Задание найти булеан и декартовое произведение А*А
Вот код:

USES Crt;
var
 i, n, x, y, u: integer;
 str:string;
 a, b, c, q: array[0..100] of integer;

procedure output;
var i : integer;
 begin
 for i:=1 to n do
 if(b[i]=1) then write(' ',i);
 write(' ');
 end;

begin
 clrscr;
 writeln('Vvedite n');
 readln(n);
 writeln('Dekartovoe proisvedenie:');
 for i:=1 to n do
 q[i]:=i;
 i:=0;
 for x:=1 to n do
 for y:=1 to n do
 begin
 inc (i);
 c[i]:=q[x]*10+q[y];
 end;
 for i:=1 to n*n do
 writeln (c[i]);
 writeln ('Bulean:');
 repeat
 output;
 i:=n;
 while a[i]=1 do begin
 a[i]:=0; dec(i);
 end;
 a[i]:=1;
 b[i]:=1-b[i]
 until i=0;
 readln;
end.

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.