Сформировать динамическую строку - Pascal

Формулировка задачи:

Сформировать динамическую строку с звеном-заголовком, вывести его на печать, проверить, входит ли в него цифры "1" и "3".

Решение задачи: «Сформировать динамическую строку»

Листинг программы

var
  s: array of char;
  n, i: integer;
  yes: boolean;
 
begin
  yes := false;
  readLn(n);
  setlength(s, n);
  for i := 0 to n - 1 do
    readLn(s[i]);
  writeln(s);
  for i := 0 to n - 1 do
    if (s[i] = '1') or (s[i] = '3') then
      yes := true;    
  if yes then
    writeln('Входит ли в него цифры "1" и "3": ', yes);
  setlength(s, 0);    
end.

Объяснение кода листинга программы

Объявлены следующие переменные: s: array of char; n, i: integer; yes: boolean;
Переменная да инициализируется значением false;
Вводится значение переменной n с помощью функции readLn;
Динамически выделяется память под массив s с помощью функции setlength, значение переменной n используется как аргумент функции;
Запускается цикл for, который читает значения в массив s с помощью функции readLn;
Выводится значение массива s с помощью функции writeln;
Запускается цикл for, который проверяет значения элементов массива s и устанавливает значение переменной да в true, если встречает цифру 1 или 3;
Выводится значение переменной да с помощью функции writeln;
Значение переменной да проверяется на true, и если это так, то выводится сообщение Входит ли в него цифры1и3: true;
Динамически выделяется память под массив s с помощью функции setlength, значение 0 используется как аргумент функции, чтобы освободить память;