Подсчитайте сумму элементов массива, находящихся после минимального элемента

uses crt;
const nmax=100;
var c,a:array[1..nmax] of real;
    n,i,k,imn:integer;
    s:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  c[i]:=7*sin(i)-i/2;
  write(c[i]:0:2,' ');
 end;
writeln;
imn:=1;
for i:=1 to n do
if c[i]<c[imn] then imn:=i;
writeln('Минимальный элемент=',c[imn]:0:2,' его номер=',imn);
if imn=n then writeln('После минимального элементов нет')
else
 begin
  s:=0;
  for i:=imn+1 to n do
  s:=s+c[i];
  writeln('Сумма после минимального=',s:0:2);
 end;
if imn=1 then writeln('До минимального элементов нет')
else
 begin
  k:=0;
  for i:=1 to imn-1 do
   begin
    k:=k+1;
    a[k]:=c[i];
   end;
  writeln('Массив элементов до минимального:');
  for i:=1 to k do
  write(a[i]:0:2,' ');
 end;
readln
end.
readln
end.