Срочно! Pascal помощь! Программирование.

Началась зачетная неделя в институте,не могу сделать несколько задачь по прикладному программированию.
Кто поможет сделать задачи в Pascal или Lazarus,отдам няшный акк Origin.
Задача 1:
Дана строка текста,выполнить с ней следующее действие:
Найти в строке самое длинное слово.
Задача 2:
Создать типизированный файл,куда записать n целых чисел. Из исходного файла сформировать массив , записав в него числа,расположенные в файле до максимального элемента и после минимального.
Задача 3:
Проверить,является ли матрица A(n,n) диагональной (все элементы нули,кроме главной диагонали)единичной (все элементы нули,на главной диагонали только единицы) или нулевой (все элементы нули).
Задача 4:
Записать элементы массива X=(X1,X2....X15) в массив Y=(Y1,Y2...Y15) сдвинув элементы массива x в лево на 4 позиции. При этом,4 элемента стоящих в начале массива x перемещался в конец: (Y1,Y2...Y15)=(X5,X6...X15,X1,X2,X3,X4).
Поменять местами минимальный и максимальный элементы массива Y.

 

#1 примерно так. но учитывается, что нет подряд идущих пробелов

Код:

var s,max: String; k: Integer;
begin
readln(s);
k:=pos(' ',s);
if k > 0 then max:='' else max:=s;
while k > 0 do
begin
if length(copy(s,1,k-1)) > length(max) then max:=copy(s,1,k-1);
delete(s,1,k);
k:=pos(' ',s);
end;
if length(s) > length(max) then max:=s;
writeln(max);
end.