1:

procedure bsp(x: integer);                    

1:

procedure bsp(var x: integer);                    

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

procedure bsp(x: integer; y: integer);

procedure bsp(x: integer; var y: integer);

procedure bsp(x,y: integer);

procedure bsp(x: integer);
var y: integer;                    

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

var eingabe, ausgabe: string;

procedure mach_es(position: integer);
var buchstabe: char;
begin
  buchstabe := eingabe[position];
  ausgeben := ausgabe + buchstabe;
  if position < length(eingabe)
  then mach_es(position + 1);
  ausgabe := ausgabe + buchstabe;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label2.caption := ' ':
  eingabe := Form1.Edit1.Text;
  ausgabe := ' ';
  mach_es(1);
  label2.caption := ausgabe;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit Foo;

interface

{...}

var
    InterfaceGlobal: Integer;

{...}

implementation

{...}

var
    ImplementationGlobal: Integer;

{...}

procedure Bar(StdParameter:Integer; const ConstParameter: integer; var VarParameter: Integer; out OutParameter: Integer);
var
    LocalVariable: Integer;
begin
    LocalVariable := StdParameter + ConstParameter;
    StdParameter := StdParameter + 1;
    VarParameter := StdParameter + VarParameter;
    OutParameter := VarParameter + LocalVariable;
end;

{...}

end.                    

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

var 
  eingabe, ausgabe: string;

procedure mach_es(position: integer);
var 
  buchstabe: char;
begin
  buchstabe := eingabe[position];
  ausgeben := ausgabe + buchstabe; // ??? was soll diese Zeile. Die Variable Ausgeben ist nirgendwo definiert!
  if position < length(eingabe) then 
    mach_es(position + 1);
  ausgabe := ausgabe + buchstabe; // wahrscheinlich ist die o.a. Zeile mit ausgeben falsch!!
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label2.caption := ' ';  // irrtümlich stand hier ein Doppelpunkt
  eingabe := Edit1.Text;  // Bezug auf das Formular ist überflüssig, da schon in der Prozedur erfolgt
  ausgabe := ' '; 
  mach_es(1);
  label2.caption := ausgabe;
end;                    

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

Var
  Monat : Array[1..12] of string =
    ('JAN','FEB','MRZ','APR','MAI','JUN','JUL','AUG','SEP','OKT','NOV','DEZ');
  AktuellerMonat : string;
  i : integer;
begin
  AktuellerMonat := Monat[3]; // dann ist AktuellerMonat = 'MRZ'
  for i := 1 to 12 do WriteLn(Monat[i]);
end;                    

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

type
  Adresse = Record
    Vorname, Name : string[50];
    Strasse : string[90];
    PLZ : string[5];
    Ort : string[90];
    Geburtstag : TDateTime;
  end;

var
  Kunde : Array [1..200] of Adresse;