Ranged checked error

[agarum]

решаю задачу на длинную арифметику (сложить два длинных числа, длинное число не влезает ни в один тип даных)
написал вот такой код, вроде должен исправно работать, а он пишет Ranged checked error и даже до rewrite(output) не доходит, сразу на end перескакивает, что делать?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;


var a, b, c: string;
i, m, j, i1, i2: integer;
p: boolean;
procedure swap(var x, y: char);
var z: char;
begin
z:=y;
y:=x;
x:=z;
end;

function chrtoint(l:char):integer;
var o: string;
i: integer;
begin
 if l='0' then result:=0;
 if l='1' then result:=1;
 if l='2' then result:=2;
 if l='3' then result:=3;
 if l='4' then result:=4;
 if l='5' then result:=5;
 if l='6' then result:=6;
 if l='7' then result:=7;
 if l='8' then result:=8;
 if l='9' then result:=9;
end;

function inttochr(l1: integer):char;
var o: string;
  begin
  if l1=0 then result:='0'
  else begin
    o:='123456789';
    result:=o[l1];
 end;
  end;


function plus(x, y: char): char;
var prom: integer;
begin
 prom:=chrtoint(x)+chrtoint(y);
 if p then inc(prom);

 if (prom<10) then
  begin
   p:=false;
   result:=inttochr(prom);
  end;
 if (prom>9) then
  begin
   p:=true;
   result:=inttochr(prom mod 10);
  end;
end;


begin
 assign(input,'input.txt');
 assign(output,'output1.txt');
 reset(input);
  readln(a);
  read(b);
 close(input);
   m:=max(length(a), length(b));
  for i:=1 to length(a) div 2 do
    swap(a[i], a[length(a)-i+1]);
  for i2:=1 to length(b) div 2 do
    swap(b[i2], b[length(b)-i2+1]);
  for i1:=1 to m do
    c[i1]:=plus(a[i1], b[i1]);
  for j:=1 to length(c) div 2 do
    swap(c[j], c[length(c)-j+1]);

  rewrite(output);
  write (c);
  close(output);
end.

[Прик]

   ...
  SetLength(c, m);  //добавить
  for i1:=1 to m do
    c[i1]:=plus(a[i1], b[i1]);
   ...

Еще одна причина ошибки. На строке c[i1]:=plus(a[i1], b[i1]); обязательно будет вышеназванная ошибка, если количество цифр в переменных a и b разное. Алгоритм необходимо переделать так чтобы количество цифр в обоих переменных было одинаковым. Например, меньшее число дополнять нулями слева.

И выбросьте вы эти абсолютно бесполезные assign(input, output... вместе с close.

[Alexei91]

Внимательно проверьте код,особенно,где идёт с char.
Отладьте каждую функцию отдельно и найдёте,где вылазит ошибка.

[Serge_Bliznykov]

не в плане исправления косяков в алгоритме, а исключительно в плане оптимизации кода.

Ну не могу я смотреть, на километровый неоптимальный код, который можно заменить ОДНОЙ командой.

function chrtoint(l:char):integer;
begin
  Result := ord(l)-ord('0');
end;

function inttochr(l1: integer):char;
begin
  result:=chr(l1+ord('0'));
end;

p.s. К слову, а для чего в данном алгоритме SWAP ? для чего переставлять символы местами?!

И надо цикл сложения делать справа налево (как в начальной школе учили).

[agarum]

Serge_Bliznykov спасибо за советы по оптимизации, своп нужен - чтобы перевернуть оба числа, чтобы складывались числа "как в начальной школе учили" - справа налево. В конце ответ переворачивается и получается искомое число

Прик, спасибо, сейчас отлаживаю, но той ошибки не вылетает, а assign, close - необходимое условие, тестирующая система требует чтобы была работа с файлами input.txt и output.txt )

[Пепел Феникса]

коли пишите в Делфи так пишите как в Делфи, а не как в паскале(в Делфи AssignFile/CloseFile вообще то)
правда насколько я помню в консоли совместимо с паскалем, но тем не менее лучше избегать недочетов.

[Serge_Bliznykov]

Сообщение от Пепел Феникса

коли пишите в Делфи так пишите как в Делфи, а не как в паскале(в Делфи AssignFile/CloseFile вообще то)

+ 1

действительно, в Delphi надо использовать AssignFile вместо Assign и CloseFile вместо Close !