Дано два однонаправленных списка целых чисел. Увеличить все элементы с четным количеством цифр из первого спис

type
  tList = ^tRec;
  tRec = record
    n : Integer;
    x : tList;
  end;
 
function CreateList(n : Integer) : tList;
var
  i : Integer;
  cur, tmp : tList;
begin
  cur := nil;
  for i := 1 to n do
    begin
      New(tmp);
      tmp^.n := Random(41) - 20;
      tmp^.x := cur;
      cur := tmp;
    end;
  CreateList := cur;
end;
 
procedure PrintList(List : tList);
begin
  while List <> nil do
    begin
      Write(' ', List^.n);
      List := List^.x;
    end;
  WriteLn;
end;
 
function MinList(List : tList) : Integer;
var
  n : Integer;
begin
  n := List^.n;
  List := List^.x;
  while List <> nil do
    begin
      if n > List^.n then n := List^.n;
      List := List^.x;
    end;
  MinList := n;
end;
 
function DigitsCount(n : Integer) : Integer;
var
  i : Integer;
begin
  i := 0;
  repeat
    n := n div 10;
    inc(i);
  until n = 0;
  DigitsCount := i;
end;
 
procedure ListModify(n : Integer; var List : tList);
var
  cur : tList;
begin
  cur := List;
  while cur <> nil do
    begin
      if Not odd(DigitsCount(cur^.n)) then
        inc(cur^.n, n);
      cur := cur^.x;
    end;
end;
 
var
  n : Integer;
  List1, List2 : tList;
begin
  Randomize;
  Write('Количество элементов в 1 списке: n = '); ReadLn(n);
  List1 := CreateList(n);
  Write('Количество элементов во 2 списке: n = '); ReadLn(n);
  List2 := CreateList(n);
  Write('List1 :'); PrintList(List1);
  Write('List2 :'); PrintList(List2);
  n := MinList(List2);
  WriteLn('Минимальный во втором списке: ', n);
  ListModify(n, List1);
  Write('Изменённый List1 :'); PrintList(List1);
end.