Найти номер первого положительного элемента массива в паскале

Program primer; uses crt; var i,n,ind: integer;       a: array[1..100] of integer; begin clrscr;           randomize;           write('pazmer massiva  = ');           readln(n);           for i: =1 to n do           a[i]: = random(100)-70;           for i: =1 to n do           write(a[i]: 5);           writeln;           writeln;         for i: =1 to n  do                 if a[i]< =0 then ind: =ind+1                 else                 begin                 ind: =i;         writeln(ind); break;         end; end.

Program primer; const n=10; var a : array [1..n] of integer; i: integer; begin writeln ('vvedite massiv'); for i : =1 to n do readln(a[i]); a[i]: =a[1]; if a[i]> 0 then writeln ('i=',i); readln; end. я не уверена ли пока не скачала и не могу кто то имеет с файлами напишите они нужны

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   // заполним информацию случайным образом;   // если хорошистов в результате не окажется,   // просто перезапускаем   randomize;   var a: =matrrandom(13,10,4,5); // везде только 4 и 5   for var i: =1 to 20 do // раскидаем 20 троек       a[random(13),random(10)]: =3;   a.println(2); writeln;   // собственно, решение   var k: =0;   foreach var r in a.rows do       if r.all(x-> x< > 3) and not r.all(x-> x=5)  then k+=1;   writeln(k,' хорошистов') end. пример 5 5 4 4 4 5 3 3 4 4   5 4 4 4 3 4 5 5 4 5   5 5 5 3 5 4 4 5 5 4   3 5 4 3 4 4 5 5 5 3   5 3 4 4 5 4 4 5 5 4   3 5 5 5 5 4 4 4 4 3   4 4 5 3 5 4 4 5 4 5   4 5 4 4 4 4 4 4 5 4   3 5 3 4 4 4 4 4 5 3   5 5 4 5 4 4 4 5 4 5   4 5 4 5 4 5 3 4 5 5   4 5 4 4 4 4 5 4 4 5   4 3 5 4 4 4 5 5 3 5 3 хорошистов