Дан порядок N чисел. Нужна найти минимальную сумму подряд идущих чисел. Нужно вычислить нужную сумму — Pascal(Паскаль)

формать входных данных
первая строка файла содержит количество цифр n , во второй строке задаются n чисел кадое из которых по модулю не превосходит 1000 000 000

тоесть формат входных данных :
7 - количество цифр
-5 10 -2 -3 4 -7 1 - сама последовательность

а вывод должен быть -8

Const m=100;
var
    i,j,min,tempmin,s,k,N,beg,en:integer;
    x:array [1..m] of integer;
begin
Randomize;
writeln('Введите количество чисел');
readln(N);
writeln('Теперь вводите 'n,' чисел');
For i:=1 to N do
    begin
{       x[i]:=random(6);
        write(x[i]:5);}
    readln(x[i]);
    end;
writeln;
for i:= 1 to N do min:=min+x[i];
beg:=1;
en:=N;
for i:= 1 to N-1 do
    begin
        tempMin:=0;
        for j:= i to N do tempMin:=tempMin+x[j];
            if TempMin<min then min:=TempMin;           
        tempMin:=0;
        for j:= 1 to i do tempMin:=tempMin+x[j];
        if TempMin<min then min:=TempMin;       
        for j:= i+1 to n do
            begin
                tempMin:=0;             
                for k:= i to j do tempMin:=tempMin+x[k];            
                if TempMin<min then min:=TempMin;
            end;    
    end;
writeln('Минимальная сумма = ',min);
readln;
end.