Пару лабораторных по Pascal и одна на Delphi

[Seidgin]

Доброго времени суток .
Помогите пожалуйста сделать 2 (две) лабораторные работы на Pascal и 1 (одну) на Delphi.
Условие работ таково:
Pascal
№1
Определить среднее арифметическое элементов строк двухмерного массива и сформировать новый одномерный массив.
№2
Составить программу бегущего человечка вдоль окна (или по дорожке).
Delphi
Разработайте проект для считывания одномерного массива из 10 элементов с текстового файла и определения произведения отрицательных элементов.
P.S. В этой лабораторной должен быть создан текстовый файл и заполнен цифрвми, программа должна открывать файл и выводить отрицательные элементы.

[Arigato]

А чем конкретно мы должны помочь? Я не вижу вопроса.

[Seidgin]

Помощь сделать лабораторные, не ловко у вас просить, но выбора не остаётся я пол месяца болел и тот материал что все прошли освоить не успел.

[Mad_Cat]

1)

For i:=1 to n do begin
Avg[i]:=0;
For j:=1 to m do
Avg[i]:=Avg[i]+a[i,j];
Avg[i]:=Avg[i]/m;
end;

[Vanta11a]

Паскаль, №2.
Отрисовали человечка (круг и 5 линий), задержка, стерли человечка, отрисовали в следующей позиции. Повторить в бесконечном цикле. Позиции отрисовки продумать заранее.
Делфи, №1.
Считать из файла массив, работать с массивом. Все просто.