СРОЧНО пожалуйста прошу нужно программа на паскале и блок схема

massiv : -9; 14;-7; 5;-21; 11; 10; 14;-11;-20;
vse otric elementy massiva : -9;-7;-21;-11;-20;
max iz polozhit = 14
---------------
massiv : -4;-1;-8;-22; 2; 3;-19; 7;-8; 2;
vse otric elementy massiva : -4;-1;-8;-22;-19;-8;
max iz polozhit = 7
---------------
massiv : -8;-21; 14;-8;-12;-14; 1; 12;-12; 6;
vse otric elementy massiva : -8;-21;-8;-12;-14;-12;
max iz polozhit = 14
---------------
massiv : -5; 9;-8; 9;-17;-16; 10;-13;-17;-15;
vse otric elementy massiva : -5;-8;-17;-16;-13;-17;-15;
max iz polozhit = 10
---------------
massiv : 10;-1; 7;-1; 7;-4;-20; 3;-10;-10;
vse otric elementy massiva : -1;-1;-4;-20;-10;-10;
max iz polozhit = 10
---------------
massiv : -13;-12;-23;-2; 2; 11;-14;-1; 8;-4;
vse otric elementy massiva : -13;-12;-23;-2;-14;-1;-4;
max iz polozhit = 11
---------------
massiv : -9; 7;-17; 12;-14;-8;-1;-16; 13; 7;
vse otric elementy massiva : -9;-17;-14;-8;-1;-16;
max iz polozhit = 13
---------------
massiv : -14; 4;-2;-17;-12;-5;-12; 5;-1;-14;
vse otric elementy massiva : -14;-2;-17;-12;-5;-12;-1;-14;
max iz polozhit = 5
---------------
massiv : 0;-24; 6; 5; 1;-24;-3;-3;-2;-16;
vse otric elementy massiva : -24;-24;-3;-3;-2;-16;
max iz polozhit = 6
---------------
massiv : 6; 10; 0; 13; 7; 11;-17; 11;-12; 12;
vse otric elementy massiva : -17;-12;
max iz polozhit = 13
---------------
massiv : -7;-11;-1;-22; 4;-17;-5;-1;-17; 2;
vse otric elementy massiva : -7;-11;-1;-22;-17;-5;-1;-17;
max iz polozhit = 4
---------------
massiv : 5; 8;-14;-6; 9;-11;-13;-25; 6; 8;
vse otric elementy massiva : -14;-6;-11;-13;-25;
max iz polozhit = 9
---------------
massiv : -22; 9; 13;-9; 0;-2;-17;-15;-4;-24;
vse otric elementy massiva : -22;-9;-2;-17;-15;-4;-24;
max iz polozhit = 13
---------------
massiv : -17; 13;-3;-19; 7;-25;-11;-20; 11; 5;
vse otric elementy massiva : -17;-3;-19;-25;-11;-20;
max iz polozhit = 13
---------------
massiv : 8;-18; 13;-1;-9; 12; 6;-11; 10; 5;
vse otric elementy massiva : -18;-1;-9;-11;
max iz polozhit = 13
---------------
massiv : -16;-1;-2;-24;-14;-6; 11;-10;-5; 5;
vse otric elementy massiva : -16;-1;-2;-24;-14;-6;-10;-5;
max iz polozhit = 11
---------------
massiv : 7;-23; 13;-24;-6; 2;-3; 0;-21; 11;
vse otric elementy massiva : -23;-24;-6;-3;-21;
max iz polozhit = 13
---------------

Uses Crt;

var
n, max: integer;
a: array [1..100] of integer;

begin
Randomize;
write('Введите кол-во элементов массива - '); Readln(n);
max := 0;
write('Массив: ');
for var i := 1 to n do
begin
if random(2) = 1 then a[i] := (-1) * random(26)
else a[i] := random(16);
write(a[i] + ' ');
end;
writeln;
write('Отрицательные числа массива: ');
for var i := 1 to n do
begin
if a[i] > max then max := a[i];
if a[i] < 0 then write(a[i] + ' ');
end;
writeln;
writeln('Максимальное значение из положительных чисел массива:', max);
readln;
end.