Язык:
Русский
English
type Str18 = String[18];
var
P : ^Str18;
begin
New(P);
P^ := 'Сейчас переменная есть...';
Dispose(P); { А теперь уже нет... }
end.
var
P : ^Str18;
begin
New(P);
P^ := 'Сейчас переменная есть...';
Dispose(P); { А теперь уже нет... }
end.