40 вычислить и вывести все значения y по формуле y=4-x для всех целых значений x от 1 до n.! причина

Type   ta=array[1..10] of integer; var f: text; s: string; i,k: integer; ar: ta; procedure change(var ar: ta; i: integer; var k: integer); begin; if (ar[i]> 5) and (ar[i]< 10) then   begin;   ar[i]: =100;     inc(k);   end; end; begin; randomize; k: =0; writeln('first array: '); for i: =1 to 10 do   begin;   ar[i]: =random(30);   write(ar[i]: 4);   change(ar,i,k);   end; assign(f,'text.txt');   rewrite(f);   writeln(f,'final array: ');     for i: =1 to 10 do     write(f,ar[i]: 4);       writeln(f,' ');       writeln(f,'changes: ',k);   close(f); end.

Var a: array[1..1000] of integer;   i,min,n: integer;   begin  writeln('введите количество элементов массива');   readln(n);   for i: =1 to n do read(a[i]);   if (a[i]< 0) and (a[i] mod 2< > 0) then min: =a[i];   for i: =1 to n do  if (a[i]< 0) and (a[i] mod 2< > 0) and (a[i]< min) then min: =a[i];   if min=0 then writeln('нечетных и отрицательных элементов в массиве нету') else  writeln('минимальный, нечетный, отрицательный элемент массива - ', min);   end.