Например, если надо составить программу для вычисления средней массы ста учеников 9-х классов,то очевидно нужно использовать 100 переменных типа real, значением каждой из которых будет масса соответствующего девятиклассника по данным ста учеников 9-х классов, найти сумму значений этих переменных и разделить ее на 100.

Если использовать 100 переменных типа real с произвольными именами, например,а, Ь, с, ..., z, аа, ab, ас ..., az, ba, bb, be, .... bz, ca, cb, cc, ..., cv, то команда нахождения суммы их значений будет содержать в правой части 100 слагаемых или нужно включить в текст программы такие 100 команд:

 sum = а;
 sum = sum + b;
 sum = sum + с;
 ...
 sum = sum + cv;

  Заключение: Все это делает текст программы громоздким и неудобным

В разделе type интерфейсного блока программного кода описать новый тип данных, и в разделе var описать переменную нового типа:

• type <имя типа> = array [диапазон индексов] of <тип элементов>;
• var <список переменных> <имя типа>;

 Описать переменную типа массива не вводя нового типа:

 var <список переменных>: array [диапазон индексов] of <тип элементов>;

 Основное предназначение компонента TMemo – работа с большим количеством строк (ввод, отображение и редактирование текстового материала).

  Элементы массива Memo1.Lines имеют нумерацию от 0 до Memo1.Lines.Count - 1.

Среди свойств этого компонента много вам уже известных: Name, Color, Font, Enabled, Visible, Height, Width, Top, Left и другие.
Рассмотрим еще несколько свойств многострочного текстового поля:
 Text - текст, находящийся в поле Memo, рассматривается как единое целое.
 Lines - массив строк, соответствующий содержимому поля., доступ к строке осуществляется по номеру, строки нумеруются с нуля.
 Lines.Count    -   количество строк текста в поле Memo.
 WantReturns - клавиша для ввода конца строки: TRUE – клавиша ENTER; FALSE – сочетание клавиш CTRL + ENTER.
 WordWrap - переход в начало следующей строки при вводе длинных строк: TRUE –производится автоматически; FALSE – не производиться, при включенной горизонтальной полосе прокрутке это свойство игнорируется.
 ScrollBar - использование полосы прокрутки, если текст большой и не помещается в компоненте Memo:

ssNone – Нет полосы прокрутки;
ssHorizontal – Установлена горизонтальная прокрутка;
ssVertical – Установлена вертикальная прокрутка;
ssBoth – Установленs две полосы прокрутки.

ReadOnly - разрешает или запрещает редактирование текста. (Программно все равно текст можно добавлять).

 MaxLength - максимальная длина текста в поле Мето, значение 0 снимает ограничения длины

 Компонент Listbox (вкладка Standard на палитре компонентов) предназначен для хранения и обработки текстовых данных.

1.  Каждая строка Listbox сохраняет строку данных в формате String.
2. .Доступ в строки предоставляет свойство Items этого компонента.

       3. Для добавления строки в список программным путем назначен метод Add. Синтаксис его вызова таков:                                                    ListBox1.Items.Add ( 'Новая строка');
      4.Добавить в список ListBox значение выражения 2 * х:                                     ListBox1.ltems.Add (IntToStr (2 * x))
     5. Чтобы очистить содержимое списка, для элемента управления ListBox вызывают метод Clear:                                                                                                 ListBox1.Clear;
     6.  Свойство Count сохраняет количество строк, добавленных в список.

Методы компонента Memo:
 1. Для создания новых строк служат методы:

• Add () - Memo1.Lines.Add ()
• Lines.Append - aнгл. Append - добавлять,что добавляет в многострочное текстовое поле новую строку и выводит в нее значение параметра, указанного в скобках

  2. Добавления новой строки в конец списка - Insert ():
                                  Memo1.Lines.lnsert (N, Text) - вставка строки Text перед строкой с индексом N

 3. Добавить элементы в массив Memo1.Lines:

•  Memo1.Lines.Add ( 'Это будет последняя строка');
• Memo1.Lines.lnsert (2, 'Эта строка будет третьей'); //Отсчет от нуля!

 4. Memo имеет метод Delete () для извлечения строки: Memo1.Lines.Delete (i) // Удаление строки с индексом 

 5. Для очистки всего содержимого поля Memo предназначен метод Clear - Memo1.Clear;

Замена значений всех элементов массива

Алгоритм решения задачи: последовательно перебрать все элементы массива и значение очередного элемента изменить по определенному правилу например,

•  изменить знак элементов на противоположный
•  предоставить всем элементам нулевые значения
•  увеличить значение всех элементов на определенную величину

 Программный код

procedure TForm1.Button1Click(Sender: TObject);
    var a: array[0..9] of real; i:integer;
begin
   for i:= 0 to 9 do   a[i]:= strtofloat(memo1.Lines[i]); { данные из строк многострочного текстового поля memo1  перевести в числа и присвоить соответствующим элементам  массива }
  for i:= 0 to 9 do    a[i]:=a[i]*a[i];   // изменение значений элементов массива,  возведение в степень
  memo2.Clear;  //  очистить второе многострочное поле
  ListBox1.Clear; //  очистить  многострочное поле ListBox1
  for i:= 0 to 9 do
      begin
        memo2.Lines.Append(floattostr(a[i]));{для  вывода значений элементов массива в строки поля memo2 применяем метод Append или метод Add}

       ListBox1.Items.Add( floatToStr(a[i])); {  вывести значение элементов массива в строки многострочного поля ListBox1 применив метод Add}
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ListBox1.Clear;     memo2.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  form1.Close;
end;

 Алгоритм решения задачи:

• последовательно перебрать все элементы массива;
• если очередной элемент соответствует некоторому условию, его значение изменить по определенному правилу.

 Как условие может проверяться:

•  значение элемента массива на кратность некоторому числу, положительность, равенство нулю и тому подобное.
•  также и значение индекса элемента массива (например, меняются элементы, стоящие на четных местах).

Например,

1. Отрицательные элементы массива А заменить числом 25:

For i: = 1 to N do If A [i] <0 Then A [i]: = 25;

2. Элементы массива А, имеющие четные индексы, заменить нулем:

         For i: = 1 to N do If i mod 2 = 0 Then A [i]: = 0;