Сложени n-разрядных чисел. Проверьте)

[LiptonICE]

Program lab;
var 
   n,n1,n2:string;
   i,t1,t2,d:byte;
   n3:string[1];
   code1,code2:integer;
begin
   Writeln('Input n1');
   Readln(n1);
   Writeln('Input n2');
    Readln(n2);
d:=0;
n:=' ';
k:=lenght[n1];
for i:=k downto 1 do 
   {perebiraem chislo-stroki spravo-nalevo}
Val(n1[i],t1 code1);
Val(n2[i],t2 code2);
   {prevrachaem simvol  cifru}
t:=ed+t1+t2;
ed:=t mod 10
p:=t div 10
   {operaciya slogeniya chisla s ostatkom}
str(ed,n3);
n:=n+n3;
end;
writeln(n);
readln;
end.

Тема уже затрагивалась по-поводу этой задачи, я вот доришал... скажите она не выдаёт правельный ответ, что неправильно? Брал числа 123456 и 987654 при сложение не тот результатк выдаёт...

[Z1000000]

В каком паскале это делалось ?

Переменная k не объявлена, но используется :
k:=lenght[n1];

Как это откомпилировалось вообще.

Либо я чего-то не знаю, либо уже крыша к вечеру ....

[Anatole]

Тема уже затрагивалась по-поводу этой задачи, я вот доришал... скажите она не выдаёт правельный ответ, что неправильно?

При беглом просмотре заметил следующее:
1) нет выбора более длинного числа,
2) после окончания цикла нет добавления к числу последнего переноса разряда.
3) после сложения очередного разряда цифры дописываются почему-то в конец числа, а не в начало. в результате число будет записано задом наперёд

[Serge_Bliznykov]

чтобы не обсуждать здесь тему, которую автор создал в нарушение правил как кросспостинг, прошу обратить внимание, что задача решалась здесь:
http://www.programmersforum.ru/showthread.php?t=96161