Вместо цикла for использовать цикл repeat так, само состоит в том, чтобы ввести n различных чисел найти количество положительных чисел и составить блок-схему с repeat var a, n, i, k: integer; begin readln(n); k: =0; for i: =1 to n do begin readln(a); if a> 0 then k: =k+1; end; writeln(k); end.

Блок-схема - в прилагаемом файле.

Var a,n,i,k:integer; 
Begin 
Readln(n); 
k:=0; 
i:=0;
repeat
i:=i+1;
readln(a); 
if a>0 then k:=k+1; 
until i=n;
Writeln(k); 
End.

Пример:
5
53
-78
67
-12
40
3

Program pos;
var
    n, a, b, c, s, d: integer;
begin
    write('n = ');
    readln(n);
    if n < 1000 then
    begin
        a := n div 100;
        b := n mod 100 div 10;
        c := n mod 10;
        write('В числе ');
        if a = 0 then
            if b = 0 then
            begin
                d := 1;
                writeln('1 цифра');
            end
            else
            begin
                d := 2;
                writeln('2 цифры');
            end
        else
        begin
            d := 3;
            writeln('3 цифры');
        end;
        s := a + b + c;
        writeln('Сумма цифр: ', s);
        if n mod 2 = 0 then
            writeln('Число чётное')
        else
            writeln('Число нечётное');
        if d = 1 then
            writeln(c)
        else
            if d = 2 then
                writeln(c, b)
            else
                writeln(c, b, a);
        end
    else
        writeln('Число > 1000!');
end.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

procedure MyArray(n:integer;var a:array of integer);
begin
  a:=ArrFill(n,0); // заполняем массив нулями
  Randomize; // инициализируем датчик случайных чисел
  // в случайный элемент заносим слчайное значение
  a[Random(0,n-1)]:=Random(1,99)
end;

begin
  var n:=ReadInteger('n='); // читаем с клавиатуры размер массива
  var mas:array of integer;
  MyArray(n,mas); // вызываем процедуру
  mas.Println // выводим сформированный массив
end.

Пример
n= 21
0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0