Помогите плиз с 2-мя задачами нужно до среды

[Perf]

Всем привет. Задали 2 задачи(Free Pascal), очнеь нужен код программ причом до среды, помогите плиз сам не справлюсь:
1) В данной строке каждый символ с номером кратным К (введённым пользователем) заменить на пробел. Строка читается из файла.
Первую решить помогли!

2) Дан массив элементов типа string отсортировать его по алфавиту.

[puporev]

Сортировка массива строк по алфавиту делается точно также, как и сортировка чисел по возрастанию, пример методом "пузырька".

for i:=1 to m-1 do      {sortiruem po vozrastaniu alfavita}
for k:=1 to m-1 do
if s2[k]>s2[k+1] then
   begin
      x:=s2[k];s2[k]:=s2[k+1];s2[k+1]:=x;
   end;
   for i:=1 to m do
write(s2[i],' ');readln;

m - длина массива, s[k] - элемент массива, х - буфер.

[Perf]

Спасибо за ответ. Всё сделал.