Ошибка 215. Арифметическое переполнение - Turbo Pascal (28976)

program tsvp_lab3;
uses crt;
const max=20;
    inf=50000;
var n:byte;
    C:array[0..max,0..max]of word;
 Procedure GetData;
var i,j:byte;
    f:text;
begin
    assign(f,'matr.txt');
    reset(f);
    n:=0;
    while not eof(f) do
    begin
        read(f,i);
        inc(n);
    end;
    n:=round(sqrt(n));
    dec(n);
    close(f);
    reset(f);
    for i:=0 to n do
        for j:=0 to n do
        begin
            read(f,C[i,j]);
            if (C[i,j]=0)and(i<>j) then C[i,j]:=inf;
        end;
    close(f);
end;
 
var i,j,
    act,
    pr,
    v:byte;
    D:array[0..1,0..max]of word;
    stab:boolean;
 
begin
    GetData;
    repeat
        clrscr;
        write('Vvedite nomer vershiny ot 0 do ',n,': ');
        read(v);
    until (v>=0)and(v<=n);
    act:=0;
    pr:=1;
    for i:=0 to n do
        if i=v then D[act,i]:=0
        else D[act,i]:=inf;
    while not stab do
    begin
        act:=1-act;
        pr:=1-pr;
        stab:=true;
        for i:=0 to n do
        begin
            D[act,i]:=inf;
            for j:=0 to n do
 
                if D[act,i]>D[pr,j]+C[j,i] then D[act,i]:=D[pr,j]+C[j,i];
            if D[act,i]<>D[pr,i] then stab:=false;
        end;
    end;
 
    clrscr;
    writeln('Krotchaishee rasstoyanie ot vershyny ',v,' do vershyny:');
    for i:=0 to n do
        if i<>v then writeln(i,' - ',D[act,i]);
    write('Dlya vyhoda nazhmite lubuyu klavishu');
    readkey;
end.