Может кто подредактировать?, Файлы, Pascal ABC Опции

[Дарина]

1. Имеется файл, в котором содержится размерность массива и его элементы. Вычислить:
A. минимальный элемент массива;
B. сумму элементов массива, расположенных между первым и последним положительными элементами.
Полученные результаты записать в новый файл.}

Кому не сложно можете еще посмотреть расчет суммы..там вообще бред какой-то(

Var a:array[1..100] of integer;
min,i,number,sum,n,k,l,c:integer;
f1, f2: text;
begin
 Assign(f1, 'File1.txt');
  assign(f2, 'File2.txt');
  Reset(f1);
  rewrite(f2);
  for i := 0 to n - 1 do
  begin
    read(f1, a[i]);
    readln(f1);
  end;
  closeFile(f1);
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите массив А');
  writeln(f2, a);
min:=A[1];
for i:=1 to n do
begin
write('Введите A[',i,']=');
readln(a[i]);
min:=A[1];
   if min>A[i] then
     begin
     min:=A[i];
     number:=i;
     end;
     end;
     c:=0;
               for i:=1 to n do
              if (a[i]>0) and (c=0) then 
              begin 
              k:=i;
              c:=1;
              end;
              
 
              for i:=n downto c do
              if a[i]> 0 then
              l:=i;

              for i:=k to l do sum:=sum+a[i];
               writeln('минимальное значени ',A[number]);
               writeln('Номер минимального элемента ',number);
               writeln('Сумма элементов массива, расположенных между первым и последним положительными элементами ',sum);
     
     writeln(f2, 'Минимальные элемент и сумма элементов ' ,number ,sum);
     closefile(f2);
     readln;
     end.