Решение задач в Delphi

[Тигрозавр]

Добрый день ,программисты=)
Нужна помощь в решении задач в Delphi.
Ниже приведу задачи, заранее спасибо:
1)Даны действительные числа x, y ( x не равно y ). Меньшее из этих двух чисел заменить их полусуммой, а большее - их удвоенным произведением.
2)Даны натуральное n, символы S1, ... ,Sn .Известно, что среди S1, ... ,Sn есть по крайней мере одна запятая. Найти такое натуральное i, что Si - последняя по порядку запятая.
3)var A: array [1..5] of integer;
B: array [1..6] of boolean;
По массиву A получить массив В, присвоив его k-му элементу значение true, если выполнено условие: все элементы k-го столбца массива A нулевые, и значение false иначе.