неверная работа функции в Delphi

[ИльяМалиновский]

Чем может быть вызвано следующее:
при отладке компилятор доходит до вызова функции, переходит на строку begin этой функции, а далее сразу же выходит из программы?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
j,n,k,i: integer;
a: array[-1..600] of string;

function sum(s1,s2: string): string;

var
d,e,c: array[0..100000] of integer;
s: string;
l: integer;

begin
for i:= length(s1) downto 1 do
  d[i]:= StrToInt(copy(s1,i,1));
for i:= length(s2) downto 1 do
  e[i]:= StrToInt(copy(s2,i,1));
for i:= 1 to max(length(s1),length(s2)) do
 begin
  c[i+1]:= (c[i] + e[i] + d[i]) div 10;
  c[i]:= (c[i] + e[i] + d[i]) mod 10;
  if i=max(length(s1),length(s2)) then
   begin
    if c[i+1] <> 0 then l:= i+1 else l:= i;
   end;
 end;
for i:= l downto 1 do
 s:= s + IntToStr(c[i]);
sum:= s;
end;


begin
reset(input, 'input.txt');
rewrite(output, 'output.txt');
read(k,n);
a[0]:= '1';
for i:= 1 to n do
 begin
 a[i]:= '0';
 end;
for i:= 0 to n-1 do
 begin
  for j:= 1 to k do
   begin
    if i+j<=n then
     begin
      a[i+j]:= sum(a[i+j],a[i]);
     end;
   end;
 end;
write(a[n]);
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Altera]

Инпут и аутпут, это файлы? А их асигнуть не надо? Это что?

[ИльяМалиновский]

Нет, не надо. И так всегда работало

[s.Creator]

Вероятно переполнение стека.
Локальные переменные создаются на стеке. По умолчанию в D7 его максимум $100000 (~ 1000 000 байт ), а

var
d,e,c: array[0..100000] of integer;

Каждый массив по 400 000 байт - считайте.

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

используйте динамические массивы

[ИльяМалиновский]

Спасибо всем огромное!