С клавиатуры вводится число N, а за ним N элементов массива состоящего из целых чисел.Проверить, все ли элементы массива

Первый вариант выполнения программы:const C = 100;var n, i : Integer; a : array [1..C] of Integer; flag : Boolean;begin Write(\'N: \'); Readln(n); if (n < 1) or (n > C) then begin Write(\'Ошибка, недопустимое число.\'); Exit; end; for i := 1 to n do begin Write(\'a[\', i,\']:= \'); Readln(a[i]); end; flag := False; for i := 1 to n do if a[i] < 1 then begin flag := True; Break; end; if flag then Writeln(\'НЕТ\') else Writeln(\'ДА\'); Readln;end.Второй:program massivn;uses crt;type massiv=array[0..50] of integer;var a:massiv; n,i,k:integer;beginwriteln(\'vvedite n\');readln(n);for i:=1 to n do begina[i]:=random(100)-10;write(a[i]:3);end;for i:=1 to n doif a[i]>0 then k:=k+1;writeln; if k=n then writeln(\'DA\') else writeln(\'NET\');end