одномерные массивы

[ENTER311]

Введите массив A[n]. Если в массиве не менее двух положительных элементов, то уменьшить все четные элементы массива на 2; иначе - найти номер последнего минимального элемента массива.

[Mad_Cat]

c:=0;
For i:=1 to n do begin readln(a[i]);
if a[i]>0 then inc(c);end;
k:=1;
writeln('count+ =',c);
For i:=1 to n do begin
if (c>=2) and (not odd(a[i])) then a[i]:=a[i]-2
else if (c<2) and (a[k]<=a[i]) then k:=i;
write(a[i]);
end;
writeln;
if c<2 then write('last min #',k);

[aizhan_1812]

подскажите пожал-ста, где в проге недочеты, вот условие:
вычитание двух многозначных чисел (многозначные числа заданы в виде одномерных массивов)

вот наработки:

program kursach;
uses crt;
const n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
C:array[1..n] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(10);
writeln(' vvedennyi massiv A[i]:');
for i:=1 to n do
write(A[i]:4);
writeln;
for i:=1 to n do
B[i]:=random(10);
writeln(' vvedennyi massiv B[i]:');
for i:=1 to n do
write(B[i]:4);
writeln;
writeln(' vycheslennyi massiv C[i]:');
for i:=1 to n do A[i]:=a[n-i+1];
for i:=1 to n do begin
if A[i]<B[i] then begin
A[i]:=A[i]+10;
A[i-1]:=A[i-1]-1; end;
C[i]:=A[i]-B[i];
{for k:=n downto 1 do
while C[k]=0 do begin
k:=k-1;end;}
write(C[i]:4);
end;
readln
end.

[Sna1L]

Оформите код правильно. Его невозможно читать.

Думаю проблема в том, что число Б может быть больше А. А это повлечет проблемы при вычитании "столбиком".
Хотя могу ошибаться...

[aizhan_1812]

program kursach;
uses crt;
const n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
C:array[1..n] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(10);
writeln(' vvedennyi massiv A[i]:');
for i:=1 to n do
write(A[i]:4);
writeln;
for i:=1 to n do
B[i]:=random(10);
writeln(' vvedennyi massiv B[i]:');
for i:=1 to n do
write(B[i]:4);
writeln;
writeln(' vycheslennyi massiv C[i]:');
for i:=1 to n do A[i]:=a[n-i+1];
for i:=1 to n do begin
if A[i]<B[i] then begin
A[i]:=A[i]+10;
A[i-1]:=A[i-1]-1; end;
C[i]:=A[i]-B[i];
{for k:=n downto 1 do
while C[k]=0 do begin
k:=k-1;end;}
write(C[i]:4);
end;
readln
end.

в результате прога занимая десятку, в предыдущем разряде не вычитывает, вот непонятно почему?
подскажите еще как написать условие, при котором число А больше числа Б.
заранее спасибо