ОЧЕНЬ прошу помочь решить задачу по массивам

[Alebastr]

Крайне прошу помочь решить 2 задачи по массивам в турбо паскале

1 - ая задача:
Заполните массив 15-случайными числами. После этого отдельно первых пяти элементов массива, вторых пяти элементов массива и последних 5-ти элементов сортируются по возрастанию. После чего заменить все элементы которые = 0 на число С.
Содержимое массива выводится на экран 3 раза после заполнения, после сортировки и после замены.
Основа для задачи уже дана:
Program sqrt2
Var a:array [1..100] of integer; j,n,r,i integer
Begin
write ('Skolko elementov v massive')
Read(n)
Randomize
for i:1 to n do a[i]:=random (100);
write('ishodnyimassiv');
for i:=1 to n do write (a[i]:4);
for i:=1 to n-1 do
for j=i+1 to n do
if a[j]<a[i] then
begin r:=a[i];a[i]:=a[j];a[j]:=r;
writeln('pechat sortirovannogo massiva')
for i:1 to n do write (a[i]:4);
end;
end.



И еще 1-у задачу (Символьные переменные. Тип данных char.)
Дана последовательность 10-ти чисел. Известно, что в последовательности имеется хотя бы одня запятая.
Найти номер: последней по порядку запятой

Основа для задачи уже дана тоже:
Program cx1
var c:char;
n:integer;
begin
read(c)
a:=0
while c<>'/' do
begin if c='!' then n:=n+1
read(c)
end;
write('kolichestvo !'=n)
end.

[IT-man]

Дана последовательность 10-ти чисел. Известно, что в последовательности имеется хотя бы одня запятая.
Найти номер: последней по порядку запятой

var s:string;
i:integer;
begin
readln(s);
i:=length(s);
while s[i]<>','  do dec(i);
writeln(i);
readln;
end.

[9i.]

Сообщение от Alebastr

Заполните массив 15-случайными числами.

это вы умеете

Сообщение от Alebastr

После этого отдельно первых пяти элементов массива, вторых пяти элементов массива и последних 5-ти элементов сортируются по возрастанию.

здесь делаете

а=1 б =5
                      цикл от 1 до 3(
                         цикл от а до б
                            цикл от а до б (сортируете)
                      а=а+5 б=б+5)

Сообщение от Alebastr

После чего заменить все элементы которые = 0 на число С.

это я тоже думаю понятно

[TinMan]

9i., вопрос был про первые 5, вторые 5 и последние 5..