перезапись значений в файле.txt после сравнения

[SarahConner]

Привет, друзья.
Столкнулся с проблемкой, наверное простой, но не могу уже долго решить.
Суть: есть два файла .txt - names_all.txt (a0, a1,...,aN), и kol_all.txt с одинаковым кол-вом элементов (0, 0,...,0).

Есть еще два файла .txt - names.txt (Vasa, Peta) и kol.txt (7, 1) также с одинаковым кол-вом элементов.
Задача: если имя из names.txt = имени из names_all.txt, то kol_all[i]:= kol_all[i]+kol[i]
если имя из names.txt <> имени из names_all.txt, то a i-тое заменяется на имя из names.txt и в kol_all.txt вместо нуля на i-том месте должно стоять количество из kol.txt.
На примере: Дано
names_all.txt=(Dima, Vasa, a3, a4, a5); kol_all.txt=(4, 6, 0,0,0);
names.txt=(Vasa, Peta); kol_all.txt=(7, 1);
После преобразования д/быть:
names_all.txt=(Dima, Vasa, Peta, a4, a5); kol_all.txt=(4, 13, 1,0,0); т.е. кол-во элементов в names_all.txt и kol_all.txt должно остаться то же.

Использую TStringList.
Направте мысль в нужное русло, спасибо.