1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var

    OrderDates: TArrayField;
    I: Integer;
begin
    for I := 0 to OrderDates.Size - 1 do
    begin
      if OrderDates.Fields[I].IsNull then Break;
      OrderDateListBox.Items.Add(OrderDates[I]);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
MyArray : array[1..10] of String;

.
.
.
.
.

for i := 0 to MyArray.Size -1 do
begin					

1:
2:
3:
4:
5:
6:

var 
  MyArray : Array [1..10] Of String; 
Begin
  For i := Low (MyArray) To High (MyArray) Do 
    ;
End;					

1:

MyArray : array[1..10] of String;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

for i := 1 to 20
do begin
   writeln('1. array fuellen');
   writeln('3. neues Menue ausgeben');
   writeln('2. beenden');
   readln(a);
   if a = 1
   then begin
   MyArray[i] := 'Neuer Punkt';
   end;
   if a = 3
   then begin
        for x := Low (MyArray) to High (MyArray)
        do begin
           b := b +1;
           write(b);
           writeln(MyArray[i]);
           end;
   end;
   if a = 2
   then begin
        exit;
   end;
end;					

1:
2:

while not MyArray[i] = ''
do begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
var
  MyArray: array[0..9] of String;
  i: Integer;
begin
  for i := 0 to 4 do
    MyArray[i] := IntTostr(i);

  for i := 0 to High(MyArray) do
    if MyArray[i] <> '' then
      Listbox1.Items.Add(MyArray[i]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to 20
do begin
   writeln('1. array fuellen');
   writeln('3. neues Menue ausgeben');
   writeln('2. beenden');
   readln(a);
   if a = 1
   then begin
   MyArray[i] := 'Neuer Punkt';
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

b := 1;
repeat
   writeln('1. array fuellen');
   writeln('3. neues Menue ausgeben');
   writeln('2. beenden');
   readln(a);
   if a = 1 then
     begin
       MyArray[b] := 'Neuer Punkt';
       b := b +1
     end
   else
     if a = 3 then
       for x := Low (MyArray) to High (MyArray) do
         begin
           write(x);
           writeln(MyArray[x]);
         end
until a = 2;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

b := 1; 
repeat 
   writeln('1. array fuellen'); 
   writeln('3. neues Menue ausgeben'); 
   writeln('2. beenden'); 
   readln(a); 
   if a = 1 then 
     begin 
       MyArray[b] := 'Neuer Punkt'; 
       b := b +1 
     end 
   else 
     if a = 3 then 
       for x := Low (MyArray) to High (MyArray) do 
         begin 
           if MyArray[x]<>'' then   // <---
           begin
             write(x); 
             writeln(MyArray[x]); 
           end;
         end; 
until a = 2;					

1:
2:
3:
4:

for x := Low (MyArray) to High (MyArray) do   MyArray[x] :='';
b := 1;
repeat
  ...