задачки в DELPHI (числовые последовательности,строки)

[Lexey92]

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

1.на числовые последовательности:
Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Вывести числа последовательности, добавив к каждому, кроме первого, значение предыдущего.

2. на строки:
Напишите функцию RightPosition(str1, str2: string), которая получает два параметра str1 и str2 типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition('Миссисипи', 'си') вернет значение 6.


3.
Напишите функцию NonAlpha(str: string), которая получает параметр str типа string и возвращает позицию его первой литеры, не являющейся буквой (как латинского, так и русского алфавитов) строчной или прописной. Например, NonAlpha( 'stev7n' ) дает 5.