Пример 6

PROCEDURE …;

VAR

S: STRING;

BEGIN

S:= ’’;

MEMO1. LINES. ADD (S[1]) // Ошибка на этапе выполнения

// (не выделена память для значения S).

END;

Пример 7.

PROCEDURE …;

VAR

S: STRING;

BEGIN

// Момент I.

SETLENGTH (S, 5);

// Момент II.

S[1]:= ’A’;

S[2]:= ’B’;

S[4]:= ’C’;

MEMO1. LINES. ADD (S)

// Момент III.

END;

Пример 8.

PROCEDURE …;

VAR

S: STRING;

BEGIN

// Момент I.

S:= ’ABCDE’

// Момент II.

END;

Пример 9.

PROCEDURE …;

VAR

T, S: STRING;

BEGIN

T:= ’ABCDE’;

// Момент I.

S:= T

// Момент II.

END;

Пример 10.

PROCEDURE …;

VAR

L: BYTE;

S: STRING;

BEGIN

S:= ’ABCDE’;

… // Задание значения переменной L.

// Момент I.

SETLENGTH (S, L)

// Момент II.

END;

		II

Пример 11.

PROCEDURE …;

VAR

T, S: STRING;

BEGIN

T:= ’ABCDE’;

S:= T;

// Момент I.

SETLENGTH (S, 3)

// Момент II.

END;