Сделать в этой программе, чтобы вместо constructor где он есть была procedure

program qqgg;
const l=5;  {длина строки}
nmax=100; {максимальный размер массива строк}
 
type hhh=string[l]; {строка фиксированной длины l}
     mass=array[1..nmax] of hhh;
          list=class
                 a:mass; {сам массив}
                 len:integer; {текущий размер}
                 error:boolean; {флаг ошибки при последнем запуске}
 
                 constructor new;
                 function resultat(i:integer):boolean;
                 procedure dobavl(s:hhh);
                 constructor sceplenue(l1,l2:List);
                 function poly4enue(i:integer):hhh;
                 procedure vkl(l:List);
                 procedure print(i:integer);
                 procedure printlist;
            end;
 
{создание пустого массива}
constructor list.new;
var i:integer;
begin
     len:=0;
     for i:=1 to nmax do
         a[i]:='';
     error:=false;
end;
 
{контроль выхода за пределы индексоврезультат подаётся и в выход функции
 и в переменную}
function list.resultat(i:integer):boolean;
begin
     if (i<=len) and (i<=nmax)
     then begin
          result:=true;
          error:=false;
     end
     else begin
          result:=false;
          error:=true;
     end;
end;
 
{добавление нового элемента}
procedure list.dobavl(s:hhh);
begin
     inc(len); {размер len увеличивается и проверяется}
     if resultat(len)
     then a[len]:=s
     else dec(len); {если нельзя уменьшается обратно}
end;
 
{Второй конструктор: создание нового массива поэлементным
 сцеплением двух существующих массива}
constructor list.sceplenue(l1,l2:List);
var i:integer;
begin
     i:=1;
     while l1.resultat(i) or l2.resultat(i) do {проверяется i в обоих массивах}
     begin
          {из того массива, где не получено ошибки, берётся элемент}
          if not l1.error then dobavl(l1.poly4enue(i));
          if not l2.error then dobavl(l2.poly4enue(i));
          inc(i)
     end;
end;
 
{Получение элемента}
function list.poly4enue(i:integer):hhh;
begin
     if resultat(i)
     then poly4enue:=a[i]
     else poly4enue:='';
end;
 
{Включение другого массива с проверкой повторяющихся элементов}
procedure list.vkl(l:List);
var i,j:integer;
    s:hhh;
begin
     i:=1;
     while l.resultat(i) do {проверяется очередной индекс другого массива}
     begin
          s:=l.poly4enue(i); {берётся элемент из другого массива}
          {поиск взятого элемента в своём массиве}
          j:=1;
          while resultat(j) and (s<>poly4enue(j)) do
                inc(j);
          {если выход из цикла произошёл по превышению индекса в другом
           массиве, значит совпадения не найдено и элемент s можно добавлять}
          if error then dobavl(s);
          inc(i);
     end;
end;
 
{вывод элемента}
procedure list.print(i:integer);
var s:hhh;
begin
     s:=poly4enue(i);
     if error
     then write('Ошибка: неправельный индекс')
     else write(s);
end;
 
{вывод всего массива}
procedure list.printlist;
var i:integer;
begin
     for i:=1 to len do
     begin
          print(i);
          writeln;
     end;
end;
 
var list1,list2,list3,list4:List;
 
begin
     list1:=list.new;
     list1.dobavl('11111');
     list1.dobavl('22222');
     writeln('Список 1: ');
     list1.printlist;
 
     list2:=list.new;
     list2.dobavl('33333');
     list2.dobavl('44444');
     writeln('Список 2: ');
     list2.printlist;
 
     writeln('Список 3 = Список 1 + Список 2: ');
     list3:=list.sceplenue(list1,list2);
     list3.printlist;
 
     list4:=list.new;
     list4.dobavl('55555');
     list4.dobavl('66666');
     writeln('Список 4: ');
     list4.printlist;
 
     list3.vkl(list4);
     writeln('Включение Списка 4 в Список 3: ');
     list3.printlist;
 
     read;
end.