Then begin

k := k+1;// Збільшення на 1 значення лічильника кількості елементів масиву b

SetLength (b, k);// Встановлення нового розміру (кількості елементів) динамічного масиву b

b[k-1] := a[i];// Занесення відповідного елемента масиву a до масиву b

end;

Memo2.Lines.Clear;

if k = 0

then Memo2.Lines[0] := 'Таких чисел не існує'

Else

for i := 1 to k do

Memo2.Lines.Append(FloatToStr(b[i-1]));

end;

SetLength(англ. set – встановлювати, length – довжина).

Використовуючи динамічні масиви, можна створювати програми для довільної кількості чисел, уведених у рядки багаторядкового поля. У таких випадках потрібно ввести дані з цього багаторядкового поля в динамічний масив a, наприклад, так:

k := Memo1.Lines.Count;//Визначається кількість заповнених рядків поля

SetLength (a, k);// Встановлюється відповідна кількість елементів динамічного масивуa і виділяється для його елементів відповідна ділянка пам’яті

For i := 0 to k-1 do a[i] := StrToFloat(Memo1.Lines[i]); // Уведення даних з рядків поля до масиву

Далі дані з динамічного масиву можна опрацьовувати різноманітними методами.