Длинная арифметика: произведение

[IT-school]

Здравствуйте, форумчане!
Не получается написать программу на произведение больших чисел.
Вот код:

program dlinnja;
var f,g:text;
    a,i,o,code,s2:integer;
    x1,x2,z:array[1..101] of integer;
    s1:string;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
readln(f,s1);
readln(f,s2);
for i:=100-length(s1) to 100 do begin
                                a:=a+1;
                                val(s1[a],x1[i],code);
                                end;
a:=0;
o:=0;
for i:=100 downto 1 do begin
                       z[i]:=(o+x1[i]*s2) mod 10;
                       o:=(x1[i]*s2+o)div 10;
                       end;
a:=0;
i:=0;
while a<1 do begin
             i:=i+1;
             if z[i]>0 then a:=i;
             if i>101 then writeln(g,0);
             end;

for i:=a to 99 do write(g,z[i]);
close(f);
close(g);
end.

Для маленьких чисел работает, а вот для больших - фигню выдаёт.

[vasiatka]

Вы лучше ссылку на задачу дайте. А то не понятно "длинные" это какие.
А вообще:
1. Если s1 и s2 строковые представления целых чисел, то почему вы s2 берете числом?
В этом случае алгоритма похож на школьное умножение чисел в столбик. И цикл будет не один.
2. Если s2 - это цифра, то у вас не учитывается перенос разряда в последнем знаке числа

[vasiatka]

И пользуйтесь поиском:
http://www.programmersforum.ru/showthread.php?t=215772
Это по-моему ваша задача. Из того же места... Только на с++
Переписать код на паскаль не тяжело.

[Utkin]

Создайте процедуру умножения числа на один разряд, ну а дальше в цикле. И да, следите за переносом в старшие разряды.

[Poma][a]

Идем.Качаем. Находим в конце процедурки для длинки. Радуемся..