Длинная арифметика

[nimfa1]

Здравствуйте,столкнулась с такой проблемкой,задали выполнить длинную арифметику по сложению,вычитанию,умножению. сложение и вычитание выполнила правильно,а вот при умножении десятка на десяток (к примеру 15*15,16*16) выполняя перенос на единицу влево и складывая выдает неверный ответ 15*15= 225(а выдает 115), 16*16 =256(а выдает 156) в чем может быть причина?

http://pastebin.com/bkmAxAZC тело программы

подскажите,пожалуйста...голова уже пухнит

[Utkin]

Прежде чем искать конкретно Ваш затык необходимо:
а) снабдить код комментариями по коду
б) разбить имеющийся код на независимые процедуры и функции

[Valio]

Проще по шагам смотреть что да как.

[Tronix]

Да проще к результату сотку накидывать да и все.

[nimfa1]

один из пользователей(programm1r) подсказал ошибку,всё гениально просто,и почему в голову не пришло такое:
Строчку
zi:=(strtoint(m[i])+strtoint(n[i])) div 10;
замените на эту:
zi := ( strtoint(ress[q]) + strtoint(m[i])*strtoint(n[j]) ) div 10;