плз. часть я одну сделал сам. а это понять немогу

var  

v: array[1..100] of integer;  

i,j,n,b: integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln('============ ishodnii massiv ============='); writeln;  

//заполним массив случайными числами  

for i : = 1 to n do  

begin  

v[ i]: =random(100)-50;  

write(v[ i]: 4);  

end;  

writeln;  

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i: =1 to n-1 do  

for j: =i+1 to n do  

if v[ i]> v[ j] then  

begin  

b: =v[ i];  

v[ i]: =v[ j];  

v[ j]: =b;  

end;  

writeln;  

write('=========== otsortirovannii massiv ======='); writeln; writeln;  

write('ot min k max: '); writeln;  

for i : = 1 to n do  

write(v[ i]: 4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i : = n downto 1 do  

write(v[ i]: 4);  

readln;  

end.

var a,b,c: integer;

begin

write('введите результаты 3-х экзаменов: ');

readln (a,b,c);

if a+b+c < 13 then writeln ('сожалеем, вы не ')

else writeln('поздравляем, вы приняты! ')

end.

const n=3;

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

i,j,s: integer;

begin

for i: =1 to n do

begin

for j: =1 to n do

begin

write('введите результат ',j,' экзамена ',i,' ученика ');

readln(a[i,j])

end

end;

writeln;

for i: =1 to n do

begin

s: =0;

for j: =1 to n do s: = s+a[i,j];

if s < 13 then writeln ('сожалеем, ученик ',i,' вы не ')

else writeln('поздравляем, ученик ',i,' вы приняты! ')

end

end.