Помогите написать 2 программы на языке pascal!

1)

const
    n = 20;
var
    a: array [1..n] of integer;
    j, k, t, mj: integer;
begin
    randomize;
    for j := 1 to n do begin
        a[j] := random(100);
        write(' ', a[j]);
    end;
    writeln;
    mj := 1;
    for j := 2 to n do if a[j] > a[mj] then mj := j;
    writeln('max: a[', mj, '] = ', a[mj]);
    for j := 2 to mj - 2 do begin
        for k := 2 to mj - j do
            if a[k] < a[k + 1] then begin
                t := a[k];
                a[k] := a[k + 1];
                a[k + 1] := t;
            end;
    end;
    for j := 1 to n do write(' ', a[j]);
end.

2) Устал, ухожу. Где твоя попытка что-либо сделать? Скидывай на pastebin.com, а там посмотрим.

Пишите на почту или в асю 586178755