задачи на процедуры и функции в Паскале

[PoMi4]

помогите решить задачи на процедуры и функции
1) Описать процедуру Smooth3(A, N), выполняющую сглаживание вещественного массива A размера N следующим образом: каждый элемент массива заменяется на его среднее арифметическое с соседними элементами (при вычислении среднего арифметического используются исходные значения соседних элементов). Массив A является входным и выходным параметром. С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя результаты каждого сглаживания.

2) Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы A размера M × N, расположенных в K-й строке (если K > M, то функция возвращает 0). Для данной матрицы A размера M × N и трех данных K найти SumRow(A, M, N, K).

3) Описать процедуру TrimRightC(S, C), удаляющую в строке S конечные символы, совпадающие с символом C. Строка S является входным и выходным параметром. Дан символ C и пять строк. Используя процедуру TrimRightC, преобразовать данные строки.

4) Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого неотрицательного числа N в двоичной системе счисления. Результирующая строка состоит из символов «0»–«1» и не содержит ведущих нулей (за исключением представления числа 0). Используя эту функцию, получить двоичные представления пяти данных чисел.

Желательно с кемментами в задачах.
Заранее спасибо

[BDA]

1) http://programmersforum.ru/showthread.php?t=217255

[Poma][a]

4)

{4.Б. Перевод их двоичной в десятичную с.с.}
program Task4;

function Pow2 (k : Integer) : Longint;
var
	p : LongInt;
	i : Integer;
begin
	p := 1;
	for i := 1 to k do
		p := p*2;
	Pow2 := p;
end;


procedure BinToDec (b: string; var n: Longint; var v: Integer);

var
      len, i : Integer;
begin
	n := 0;
	v := 0;
	len := Length (b);
	for i := 1 to len do begin
		if (b[i] <> '0') and ( b[i] <> '1') then begin
			v := i;
			Exit;
		end;
		n := n + (Ord(b[i])-48) * Pow2 (len-i);
	end;
end;

var
	s : string;
	n, x : Longint;
	v : Integer;
begin
	Readln (s);
	BinToDec (s, x, v);
	if v > 0 then
		Writeln ('Ошибка в записи двоичного числа ', v)
	else
		Writeln (s + 'B = ', x);
end.

Если знаете или экспоненты и логарифмы, то можно без функции Pow2, если знаете shl, то снова можно без неё..