Неформал и бизнес!!! (матем. моделирование)

Пример
INPUT.TXT                           OUTPUT.TXT
5
73 31 96 24 46                          380
 
10
1 2 3 4 5 6 7 8 9 10                    100
 
10
10 9 8 7 6 5 4 3 2 1                    55

program N_39;
  var N,max,S,k,k1,i,j,nk:integer;
      c:array[1..100] of integer;
Begin
  assign (input,'input.txt');
  reset (input);
  assign (output,'output.txt');
  rewrite (output);
  Read (N);
  k:=0; k1:=0; nk:=1;
  max:=-100;
  For i:=1 to N do
    Begin
      read (c[i]);
      If c[i]>max then Begin
                         max:=c[i];
                         k:=i;
                       End;
    End;
  S:=max*k;
  If i<>N then
  For i:=1 to N do
    Begin
      max:=-100;
      k1:=0;
      For j:=k+nk to N do
        Begin
          If c[j]>max then Begin
                             max:=c[j];
                             k1:=k1+1;
                           End;
        End;
      nk:=nk+1;
      S:=S+max*k1;
      If max=c[N] then break;
    End;
  Write (S);
End.

{$I-}
Program xa;
var
  n,s,i,l,max,s1,lnach,m:integer;
  c:array [1..101] of integer;
  f:text;
begin
  assign(f,'input.txt');
  reset(f);
  if IOResult= 0 then
  begin
    read(f,n);
    for i:=1 to n do
      read(f,c[i]);
    close(f);
   { for i:=1 to n do
      Write(c[i], ' ');}
    s:=0;
    s1:=0;
    l:=1;
    lnach:=0;
    while (l<n+1) do
    begin
      m:=l;
      max:=c[m];
      for i:=m to n do
        if c[i]>max then
        begin
          max:=c[i];
          l:=i;
        end;
      if l=lnach then  {Эта проверка может быть и не нужна, нет времени думать зачем я её сделал...}
      begin
        for i:=l+1 to n do
          s:=s+c[i];
        l:=n
      end;
      s:=s+c[l]*(l-lnach);
      lnach:=l;
      inc(l)
    end;
    assign(f,'output.txt');
    rewrite(f);
    Writeln(f,s);
    close(f)
  end
  else
    Writeln('oLLIubka otkpblTuia faula');
end.
{$I+}

if l=lnach then  {Эта проверка может быть и не нужна, нет времени думать зачем я её сделал...}
      begin
        for i:=l+1 to n do
          s:=s+c[i];
        l:=n
      end;