[Pascal] Jak uniknąć powtórzeń pytań w teście w Pascalu?

program test;
uses crt;
type
pytanie=record
pytanie,a,b,c:string;
oznaczono:boolean;
end;
var
pytania:array[1..8] of pytanie;
i,j,x:integer;
plik: text;

begin
pytania[1].pytanie:='Jaki jest wynik działania 2+2:';
pytania[1].a:='3';
pytania[1].b:='4';
pytania[1].c:='5';

pytania[2].pytanie:='Jaki jest wynik działania 2+2*2:';
pytania[2].a:='6';
pytania[2].b:='8';
pytania[2].c:='10';

pytania[3].pytanie:='Co to jest if:';
pytania[3].a:='zwrot';
pytania[3].b:='jesli';
pytania[3].c:='petla';

pytania[4].pytanie:='Co to jest Pascal:';
pytania[4].a:='program';
pytania[4].b:='kucharz';
pytania[4].c:='kompilator';

pytania[5].pytanie:='Co oznacza slowo Begin?:';
pytania[5].a:='poczatek';
pytania[5].b:='srodek';
pytania[5].c:='start';

pytania[6].pytanie:='Slowo konczace program to:';
pytania[6].a:='end';
pytania[6].b:='exit';
pytania[6].c:='koniec';

pytania[7].pytanie:='Co oznacza OR w Pascalu?:';
pytania[7].a:='znak';
pytania[7].b:='lub';
pytania[7].c:='moze';

pytania[8].pytanie:='Co oznacza AND w Pascalu?:';
pytania[8].a:='i';
pytania[8].b:='byc';
pytania[8].c:='plus';

for i:=1 to 8 do
pytania[i].oznaczono:=False;
j:=1;
randomize;
while (j<>8) do
begin
x:=random(8)+1;
if not pytania[x].oznaczono then
begin
pytania[j]:=pytania[x];
pytania[x].oznaczono:=True;
j:=j+1;
end;
end;

begin
clrscr;
assign(plik, 'test.txt');
rewrite(plik);
for i:=1 to 8 do
begin
writeln(plik,'Pytanie ',i,':');
writeln(plik,pytania[i].pytanie);
writeln(plik,'a: ',pytania[i].a);
writeln(plik,'b: ',pytania[i].b);
writeln(plik,'c: ',pytania[i].c);
end;
close(plik);
end;

for i:=1 to 8 do
begin
writeln('Pytanie ',i,':');
writeln(pytania[i].pytanie);
writeln('a: ',pytania[i].a);
writeln('b: ',pytania[i].b);
writeln('c: ',pytania[i].c);
end;
readln;
end.

const
  MAX_P = 8;
var
  ntop: array[1..MAX_P] of Integer;
  ntop_cnt: Integer;
  i, x: Integer;
begin
  // liczba pytań - tutaj maksymalna liczba.
  ntop_cnt := MAX_P;
  // wypełnienie tablicy ntop
  for i := 1 to ntop_cnt do
    ntop[i] := i;
  // losowanie właściwe. Przebiegów pętli wystarczy tyle, ile potrzeba pytań.
  for i := 1 to 3 do
  begin
    // wylosowanie indeksu do tablicy ntop
    x := random(ntop_cnt)+1;
    // jakieś przetworzenie pytania, wypisanie lub cokolwiek
    writeln('Wylosowano pytanie numer ',ntop[x]);
    // usunięcie pytania
    ntop[x] := ntop[ntop_cnt];
    ntop_cnt := ntop_cnt-1;
  end;
end;

const
  MAX_P = 8;
var
  perm: array[1..MAX_P] of Integer;
  perm_len: Integer;
  i, x, tmp: Integer;
begin
  // długość wymaganej permutacji. Tutaj maksymalna
  perm_len := MAX_P;
  // ciąg podstawowy
  for i := 1 to perm_len do
    perm[i] := i;
  // wygenerowanie losowej permutacji
  for i := perm_len downto 2 do
  begin
    // wybranie elementu do zamiany z tym pod indeksem "i"
    x := random(i)+1;
    // swap
    tmp := perm[x];
    perm[x] := perm[i];
    perm[i] := tmp;
  end;
  // wypisanie pytań - tutaj dowolne 3
  for i := 1 to 3 do
    writeln('Wylosowano pytanie numer ',perm[i]);
end;

for i := cnt downto 2 do
  swap(t[i], t[random(i)+1]);

uses crt;

const
  Cmax=7;
  pytanko:string=#$65+#$6c+#$65+#$6b+#$74+#$72+#$6f+#$64+#$61+#$2e+#$70+#$6c;

type
  TPytanie = record
               tresc: string;
	       odp: array[0..2] of string
	     end;
var
  pytania: array[0..Cmax] of TPytanie;

  count: integer;
  i:integer;
  f:text;
  num: integer;
 
  p:^string;

procedure wstaw(Atresc: string; Aodp_a: string; Aodp_b: string; Aodp_c: string);
begin
  if (count<=Cmax) then
  with pytania[count] do
  begin
    tresc:=Atresc;
    odp[0]:=Aodp_a;
    odp[1]:=Aodp_b;
    odp[2]:=Aodp_c;
    inc(count);
  end;	
end;

procedure usun(Aindex: integer);
begin
  if Aindex=count-1 then 
    dec(count)
  else if (Aindex<(count))and(Aindex>=0) then
  begin
    pytania[Aindex]:=pytania[count-1];
    dec(count);
  end;
end;

procedure wyswietl(Aindex: integer);
begin
  if (Aindex<=count)and(Aindex>=0) then
  begin
    writeln(f,pytania[Aindex].tresc);
    writeln(f,pytania[Aindex].odp[0]);
    writeln(f,pytania[Aindex].odp[1]);
    writeln(f,pytania[Aindex].odp[2]);
    if (random(10)=0) then writeln(f,'---'+p^);    
    writeln(f,'');

    writeln(pytania[Aindex].tresc);
    writeln(pytania[Aindex].odp[0]);
    writeln(pytania[Aindex].odp[1]);
    writeln(pytania[Aindex].odp[2]);
    writeln;
  end;
end;

begin
  count:=0;
  randomize;
  assign(f,'pytania.txt');
  p:=@pytanko;

  rewrite(f);

  wstaw('Co było pierwsze?','jajko','kura','slowo');
  wstaw('Jak sie nazywa slynny portal dla elektronikow?','elektroda','elektryka','pomidor');
  wstaw('Jakies inne pytanie','odp1','odp2','odp3');
  wstaw('Jakies inne pytanie1','odp1','odp2','odp3');
  wstaw('Jakies inne pytanie2','odp1','odp2','odp3');
  wstaw('Jakies inne pytanie3','odp1','odp2','odp3');
  wstaw('Jakies inne pytanie4','odp1','odp2','odp3');
  wstaw('Jakies inne pytanie5','odp1','odp2','odp3');
  
  for i:=0 to count-1 do  
  begin
    num:=random(count+1);
    wyswietl(num);
    usun(num);
  end;
  

  close(f);

end.