задачи: на двумерные массивы,обработку строк,обработку текстовых файлов. (Паскаль)

[Yaro]

Всем привет!
В универе надо сдать три проги на паскале (в котором я не разбераюсь), говорили, что до конца января и впринципе я соберался сделать сам, но вчера оказалось, что надо сдать их сегодня, у самого ничего не получается, может кто подскажет и поможет?

1)Добавить в задачу 11 функцию, которая находит сколько отрицательных элементов находится в каждом столбце массиве и их индексы (использовать побочный эффект функции).

2)Создать программу, с процедурой, которая из строки слов, разделенных одним или несколькими пробелами, удаляет лишние пробелы, оставляя в качестве разделителя по одному пробелу. Каждое слово присвоить элементу массива строк, зная, что слово не может содержать более 20 букв, а всего в строке не более 25 слов. И создать процедуру, выводящую первое и последнее слово в текстовый файл.

3). Создать программу, в которой из любого, созданного ранее текстового файла, где хранятся целые числа типа Integer, считывать всю информацию и сохранить в другой текстовый файл только те числа, которые составляют наибольший интервал возрастания. Использовать функцию, в которой подсчитать число элементов в этом интервале. Вывести всю информацию на экран.

[Lemo]

А где же наработки?

[Yaro]

нету ничего, только задания=( я не расчитывал, что надо будет сдавать сегодня, поэтому даже и не начинал=(

набросок на первую задачу

procedure NegElementCount(Arr : Array of array of Integer; var NegArr : Array of array of Integer);
var i,j,count,k : Integer;
begin
setlength(NegArr,0);
for i := 0 to length(Arr) - 1 do begin
k := length(NegArr);
setlength(NegArr,k+1);
NegArr[k] := count; //столько отрицат. элементов в столбце
count := 0; //обнуляем счетчик для след столбца
for j := 0 to length(Arr[i]) - 1 do
if (Arr[i][j] < 0) then begin
inc(count); // увеличиваем кол-во элементов в столбце
k := length(NegArr[i]);
setlength(NegArr[i],k+1);
NegArr[i][k] := j; //записываем индекс
end;
end; // end of for(i)
end; // end of NegElementCount
begin
{ TODO -oUser -cConsole Main : Insert code here }
end.

а это вот ко второму, отредактируйте коды , мне кажется что не так=(

procedure split(src : string; var arr : array of string[20];var res : string);
var i,j : integer;
begin
setlength(arr,0);
i := length(arr);
setlength(arr,i+1);
j := 0;
i := j;
repeat
while (str[i] <> ' ') do begin
arr[j] := arr[j] + str[i];
end;
j := length(arr);
setlength(arr,j+1);
inc(i);
until (i = length(str) + 1);
for I := 0 to length(arr) - 1 do
res := res + arr[i];
writeln(res);
end;