Ф-я Length(s) Опции

[klem4]

Как вы можете объяснить результат этой рпограммы ? Строка изменяется, а длина остается прежней.

uses crt;
var
   s : string;
   T : char;
   i : byte;

begin
   clrscr;
   s := 'TEST';
   for i := length(s) + 1 to 20 do s[i] := 'r';
   writeln('s[6] = ', s[6]);
   writeln('length(s) = ',length(s));
   readln;
end.

Сообщение отредактировано: klem4 - 4.03.2006 11:00