Трудности перевода. (Pascal -> C++)

[Aspartum]

Написал небольшой код. Решаю задачу про очень быстрое умножение длинных чисел. Удалось реализовать неплохой алгоритм. Но злой ТL не пропускает задачу. Опазадание всего на 0.009 секунды. В связи с етим принял решение про перенос кода на С++, ибо программы на нем пошустрее.
Собственно сам код:

type
 Numb = array[0..490000] of int64;
{$APPTYPE CONSOLE}
var
 a, b, c: numb;
 al,bl:longint;

procedure ReadLong(var A,B: Numb);
var
 c: array[1..245000] of char;
 t: char;
 i, l, n, k: longint;
begin
 n := 1;
 repeat
   read(t);
   if (t in ['0'..'9']) then begin
     c[n] := t; inc(n); inc(al);
   end;
 until (t = #13) or (t = ' ') or eof or eoln;
 l := 1; k := 1;
 for i := n - 1 downto 1 do
 begin
   a[l] := a[l] + (ord(c[i]) - 48) * k;
   k := k * 10;
   if (n - i) mod 8 = 0 then begin inc(l); k := 1; end;
 end;
 n := 1;
 repeat
   read(t);
   if (t in ['0'..'9']) then begin
     c[n] := t; inc(n); inc(bl);
   end;
 until (t = #13) or (t = ' ') or eof or eoln;
 l := 1; k := 1;
 for i := n - 1 downto 1 do
 begin
   b[l] := b[l] + (ord(c[i]) - 48) * k;
   k := k * 10;
   if (n - i) mod 8 = 0 then begin inc(l); k := 1; end;
 end;
end;

function dlina(const a: numb): longint;
var
 i: longint;
begin
 i := 195000;
 while(a [i] = 0) and (i > 1) do
   i := i - 1;
 dlina := i;
end;
  
 procedure umn(var a, b, c: Numb);
var
  i, j, k: longint;
begin
  for i := 1 to al do
  begin
    for j := 1 to bl do    
      c[i + j - 1] := c[i + j - 1] + a[i] * b[j];
    for k := 1 to dlina(c) do
    begin
      if c[k] > 99999999 then begin
        c[k + 1] := c[k + 1] + c[k] div 100000000;
        c[k] := c[k] mod 100000000;
      end; end;
  end;
end;


procedure wr(var a: Numb; k: longint);
begin
 if a[k] < 10 then write('0000000') else
 if a[k] < 100 then write('000000') else
 if a[k] < 1000 then write('00000') else
 if a[k] < 10000 then write('0000') else
 if a[k] < 100000 then write('000') else
 if a[k] < 1000000 then write('00') else
 if a[k] < 10000000 then write('0');
 write(a[k]);
end;

procedure WriteLong(var A: Numb);
var
 i: longint;
 fl: boolean;
begin
 for i := dlina(c) downto 1 do
 begin
   if fl = true then wr(a, i);
   if (a[i] > 0) and (fl = false) then begin
     write(a[i]); fl := true; end;
 end;
 if fl = false then write(0); writeln;
end;



begin
 assign(input,'input.txt'); reset(input);
 assign(output,'output.txt'); rewrite(output);
 Readlong(a,b);
 close(input);
 umn(a, b, c);
 WriteLong(c);
 close(output);
end.

[Aspartum]

UPD: Если данная просьба слишком сложная, прошу помочь хотя бы со сложными фрагментами кода.

[Krok27]

Где сложные фрагменты? Построчно пожалуйста.

[Aspartum]

Процедура ReadLong. Все остальное терпимо..

[Fenex]

Вся процедура от начала и до конца?
Т.е. даже этот код вызывает затруднения?

var
 c: array[1..245000] of char;
 t: char;
 i, l, n, k: longint;
begin
 n := 1;

[Aspartum]

Нет. То только этот кусок.

repeat
   read(t);
   if (t in ['0'..'9']) then begin
     c[n] := t; inc(n); inc(al);
   end;
 until (t = #13) or (t = ' ') or eof or eoln;
 l := 1; k := 1;
 for i := n - 1 downto 1 do
 begin
   a[l] := a[l] + (ord(c[i]) - 48) * k;
   k := k * 10;
   if (n - i) mod 8 = 0 then begin inc(l); k := 1; end;
 end;
 n := 1;
 repeat
   read(t);
   if (t in ['0'..'9']) then begin
     c[n] := t; inc(n); inc(bl);
   end;
 until (t = #13) or (t = ' ') or eof or eoln;
 l := 1; k := 1;
 for i := n - 1 downto 1 do
 begin
   b[l] := b[l] + (ord(c[i]) - 48) * k;
   k := k * 10;
   if (n - i) mod 8 = 0 then begin inc(l); k := 1; end;
 end;

[rrrFer]

Что делает эта процедура? - опиши словами

[Aspartum]

Эта процедура считывает 2 числа посимвольно, паралельно считает длину до тех пор пока не встретится пробел и конец строки. Затем переводит числа из массива char в массив integer(в данном случае int64).

[evg_m]

Эта процедура считывает 2 числа посимвольно

перепиши процедуру и
Замени символьное чтение Read на блоковое(строчное) ReadLn.
и скорее всего не будет тебе

Опазадание всего на 0.009 секунды.

[Aspartum]

Строки имеют ограничение в длине(255 знаков). А число может быть до 10^195000.
По этому нельзя применять такой метод..
UPD: Вот само условие задачи: http://www.e-olimp.com.ua/ua/problems/317