Проблема с выводом вопросов случайным образом на Делфи

[phomm]

Неважно, где объявлен динамический массив, это автоуправляемый тип, как строка, с подсчетом ссылок, и если ссылка одна, то по выходу её из области видимости, массив будет очищен автоматом.
Когда же ссылок больше одной то тут возможны варианты, но это обычно очень редкая ситуация.

[20Анастасия20]

Спасибо большое за помощь. Я правда вчера переделала. Вот что получилось:

procedure TForm1.Button1Click(Sender: TObject);
var
   F:textfile;
  i,j,m,N,N2,N3,N4,N5,N6,N7,N8,N9,N10,N1:integer;
   A:string;
  mas:array[1..12] of integer;
begin
 if Form1.Button1.Enabled=true then
 Form1.N5.Enabled:=true;

N:=0;
S:=0;
V:=0;
   AssignFile(F,'base.txt');
   reset(F);
   Readln(F,A);              //öèêë ïîäñ÷åòà êîëè÷åñòâà âîïðîñîâ â áàçå
   While Not Eof(F) do
      begin
        Readln(F,A);
        Readln(F,A);
        V:=strtoint(A);
        For i:=1 to(V+1) do Readln(F,A);
        N:=N+1;
      end;
    mas[1]:=0;
   CloseFile(F);


  //1 вопрос

     AssignFile(F,'base.txt');
     reset(F);
     Readln(F,A); 
     label1.Caption:=A;  
     randomize;
     N1:=Random(N);
     while  N1=0 do  N1:=Random(N);
     mas[2]:=N1;

     for j:=1 to N-1 do
            begin
         if j<>N1 then
        begin
          Readln(F,A); 
          Readln(F,V);    
          for i:=1 to (V+1) do
              Readln(F,A);
         end
        else
            begin
            Readln(F,A);
            label5.Caption:=A;  
            Readln(F,V);
            Readln(F,k1);

            for m:=1 to V do
               begin
               Readln(F,A);
               Radiogroup1.Items.Add(A);
               end;
               end;
               end;
               CloseFile(F);

Подскажите пожалуйста еще как сделать шифрование чтобы и вопросы с ответами и файл с паролями пользователей не были в открытом текстовом виде, но при этом файл с оценкой можно было посмотреть администратору, и также файл с паролем админа можно было изменить

[Step_UA]

Сообщение от Serge_Bliznykov

только выделяемая под массивы память нигде не чистится. Это непорядок..
Или, если динамический массив объявлен в стеке (локальный в процедуре), то этого можно не делать?!

Массив Mas чистится автоматом, а вот динамический массив R каждого его элемента лучше все же очищать - упустил