Помогите сделать программы

[Димасян]

1. Дано слово. Вывести на экран его k-символ.
2. Дана строка, содержащая"*". Составить новую строку без символа"*"

3. Определите разность между max и min элементами одномерного целочисленного массива введенного с клавиатуры. Отобразить введенный массив на экране монитора.
4. Задан массив (x1,x2,...,x50). Требуется записать в начале массива Y положительные, а в конце - отрицательные элементы массива X в произвольном порядке.

[type_Oleg]

1.

Writeln(slovo[k]);