Delphi 7. Тема циклы.

[kazzz]

Не получается лабораторная (№13). Постоянно выдает ошибку, никак не могу ее выявить. К тому же желательно бы переделать так,
чтобы решалась не через удаление начала строки ( Delete(strn,1,p); ) а считалось вместе с полным N.. Прошу помочь!!
Наработки прикрепил. На первое Задание внимание можно не обращать..

[Mad_Cat]

k:=n;s:=0;
for i:=1 to m do
begin
s:=s+k mod 10;
k:=k div 10;
end;