Программисты на Pascal, разберитесь, в чём дело?

Program sxc;
uses
crt;
CONST
   fin_name='...';
TYPE
   ivector=array[1..16] of real;
   jvector=array[1..17] of real;
   newvector=array[1..18] of real;
VAR
   fin:Text;{ishodniy fail}
   a:real;
   j,i,k,nmin:integer;{indeksnie peremennie}
   N:integer;
   ivec:ivector;
   jvec:jvector;
   newvec:newvector;{noviy massiv, vkluchaucshiy elementi IVEC i JVEC}
   min:integer;   
   chet : integer;{chetnie elementi }
   nechet : integer;
   sum:real;{summa absolutnih znacheniy poslednih N elementov novogo massiva}
BEGIN
assign(fin, fin_name);
{$I-}
reset(fin);
{$I+}
writeln('read from file');
if ioresult<>0   then
   begin
      writeln('File', fin_name, 'not founded');
      exit;{vihod iz programmi}
   End;
read(fin,N);
writeln('N=',N:4);
for i:=1 to 16 do
begin
   read(fin,ivec[i]);
   writeln('Ivec[',i:2, ']=', ivec[i]:5:2);
end;
for i:=1 to 17 do
begin
   read(fin,jvec[i]);
   writeln('Jvec[',i:2, ']=', jvec[i]:5:2);
end;
j:=1;
chet := 1;
nechet := 9;
for i:=1 to 17 do
begin
   a:=i mod 2;
   if a=0   
      then  
         begin
         newvec[chet]:=ivec[i];
         chet := chet + 1;
     end
      else 
         begin
            newvec[nechet]:=jvec[i];
            nechet := nechet + 1;
     end;
end;
    {summirovanie znacheniy poslednih N elmentov}
k:=17-N;
Sum:= 0;
for j:=17 downto k+1 do
sum:=abs(sum+newvec[j]);    
writeln('sum=', sum:5:2);{vivod summi}
    {nahozhdenie naimen'shego polozhitel'nogo elementa}
while newvec[j]>0 or j=18 do 
   begin
      j:=j+1;
   end;{konec while}
if j=18 
         then
            {viviod novogo vectora i znacheniya summi}
            exit{vihod iz programmi}
         else
            bein
               min:=newvec[j];
           nmin:=j;
               for j:=1 to 17 do
                  begin
                     if newvec[j]>0   then
                        begin
               min:=nvec[j];
               nmin:=j;
            end;
          end
               writeln('newvec[',j:2, ']=', newvec[j]:5:2);{viviod novogo vectora}
           writeln('sum=', sum:5:2);{vivod summi}
close(fin);
readln;
END.{Programm}

Program sxc;
uses crt;
CONST fin_name='file1.txt';
TYPE vector=array[1..17] of real;
VAR
   fin:Text;{ishodniy fail}
   j,i,k,imin:integer;{indeksnie peremennie}
   N:integer;
   ivec,jvec, newvec:vector;
   sum,min:real;{summa i min.zn.}
BEGIN
clrscr;
assign(fin, fin_name);
{$I-}
reset(fin);
{$I+}
writeln('read from file');
if ioresult<>0   then
   begin
      writeln('File', fin_name, 'not founded');
      exit;{vihod iz programmi}
   End;
read(fin,N);
writeln('N=',N);
writeln('Ivec:');
for i:=1 to 16 do
 begin
   read(fin,ivec[i]);
   write(ivec[i]:6:2);
 end;
writeln;
writeln;
writeln('Jvec:');
for i:=1 to 17 do
 begin
   read(fin,jvec[i]);
   write(jvec[i]:6:2);
 end;
writeln;
writeln;
close(fin);
for i:=1 to 17 do
 begin
  if i mod 2=1 then newvec[i]:=jvec[i];
  if i mod 2=0 then newvec[i]:=ivec[i];
 end;
{summirovanie znacheniy poslednih N elmentov}
if n>=17 then k:=1
else if n=0 then sum:=0
else
 begin
  k:=17-N+1;
  Sum:= 0;
  for j:=k to 17 do
  sum:=sum+abs(newvec[j]);
 end;
{viviod novogo vectora i znacheniya summi}
writeln('Newvec:');
for i:=1 to 17 do
write(newvec[i]:6:2);
writeln;
writeln('sum=', sum:0:2);{vivod summi}
{nahozhdenie naimen'shego polozhitel'nogo elementa}
for i:=1 to 17 do
if newvec[i]>0 then
 begin
  min:=newvec[i];
  imin:=i;
  break;
 end;
for i:=1 to 17 do
if (newvec[i]>0)and(newvec[i]<min) then
 begin
  min:=newvec[i];
  imin:=i;
 end;
{vivod nomera i znachenia min elm}
write('Min. el=',min:0:2,'  index=',imin);
readln
END.{Programm}