помогите пожалуйста решить задачи в паскале очень нужно!

1)

function isprime(num: integer): boolean;
var
i, l: integer;
begin
if num = 0 then begin
isprime := true;
exit
end;
l := round(sqrt(num));
for i := 2 to l do
if (num mod i) = 0 then begin
isprime := false;
exit
end;
isprime := true
end;

const
nmax = 100;

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

begin
write('array size (<= 100)? ');
read(n);
randomize;
writeln('array:');
for c := 1 to n do begin
a[c] := random(100);
write(a[c]:4);
end;
writeln;
max := a[1];
for c := 2 to n do
if a[c] > max then
max := a[c];
writeln('max: ', max);
c := 1;
while a[c] <> max do
if isprime(a[c]) then begin
for k := c to n - 1 do
a[k] := a[k + 1];
dec(n)
end else
inc(c);
writeln('result:');
for c := 1 to n do
write(a[c]:4)
end.

Первую решил:

Исходный массив:
20419 23127 16623 10898 1374 16433 16112 25292 23295 23181 31083 26984 29305 6775 3926 18407 10607 27482 24333 14725 15436 6362 11365 6338 5619 6700 26802 3617 1186 12579 29794 27804 7765 803 4260 14020 3768 20649 9538 10474 12433 13800 6464 18850 404 454 13213 2891 17894 26986 17404 12214 25416 11119 14135 14056 11762 10285 5278 26674 21630 12495 24106 10716 25386 3278 19218 28502 2515 21906 14638 21958 17943 13858 2291 1635 31898 24514 5934 5165 25486 23911 17722 6200 27174 17579 2387 28646 18668 22203 2258 25483 15370 14863 20844 31938 21694 27748 25463 29125
Максимальное значение: 31938
Результат:
20419 23127 16623 10898 1374 16112 25292 23295 23181 31083 26984 29305 6775 3926 18407 27482 24333 14725 15436 6362 11365 6338 5619 6700 26802 1186 12579 29794 27804 7765 803 4260 14020 3768 20649 9538 10474 13800 6464 18850 404 454 13213 2891 17894 26986 17404 12214 25416 14135 14056 11762 10285 5278 26674 21630 12495 24106 10716 25386 3278 19218 28502 2515 21906 14638 21958 17943 13858 2291 1635 31898 24514 5934 5165 25486 17722 6200 27174 2387 28646 18668 22203 2258 25483 15370 14863 20844 31938 21694 27748 25463 29125

Остальные не интересные ;-)

1) напиши процедуру, определяющую "простоту" числа. Далее, в цикле пробегаешь массив, если число простое - удаляешь.
2) найди максимальный отрицательный элемент и проверь, что i == j
3) соответственно, опять цикл. во одну временную переменную суммируешь числа, во вторую складываешь их количество. в конце просто раздели первое на второе.

с техническими аспектами реализации тебе поможет разобраться справка по паскалю. ничего сложного в этих задачах нет, копать глубоко не придется.