Помогите с практическими работами! Дали задачку написать к ней программу. Написал вроде компилируется.

Практическая работа 1. «Постановка задачи. Разработка технического задания. »

Практическая работа 2. «Стиль программирования»
Написать удобочитаемую программу. Составить нечитаемую программу. Провести анализ программ с точки зрения стиля программирования.
Для того чтобы по прошествии некоторого времени автор легко мог разобраться в собственной программе и выполнить ее сопровождение они должны быть удобочитаемы. Также это необходимо для того, чтобы сторонние программисты могли разобраться в её деталях.
ходимо изучить рекомендации по стилю программирование и использовать их при написании текста программы.
Практическая работа 3. «Оптимизация»
Проанализировать составленную программу, исключив циклы по возможности. Организовать циклы и оптимизировать их работу.
При использовании циклов значительная часть времени тратится на инициирование и проверку индекса цикла, поэтому при небольшом количестве повторений, рациональнее программировать последовательно. Чтобы сократить число инициирований и проверок цикла, внешние циклы должны иметь наименьшее число итераций, по отношению к внутренним (вложенным) . Для оптимизации наиболее выгодны критические области программы (наиболее часто используемые) . Разверткой называется метод оптимизации, при котором один и тот же оператор, стоящий в теле цикла, записывается для нескольких различных значений управляющей переменной, и таким образом сокращается число итераций.
Практическая работа 4. «Тестирование»
Составить тесты для проверки программы. Использовать метод покрытия операторов или метод покрытия решений. Также воспользоваться любым методом тестирования кроме представленных двух. Помимо этого нужно включить в отчет любой пример тестирования, который шел на этапе реализации (программирования) .
Тестирование используется для нахождения ошибок в программе для их последующей отладки.
Метод покрытия операторов заключается в том, что подбираются такие тестовые значения, при которых выполняться все операторы в программе.
Метод покрытия решений заключается в том, что подбираются такие тестовые значения, при которых каждое условие в программе принимает значение ИСТИНА или ЛОЖЬ хотя бы один раз.
Практическая работа 5. «Написание спецификации.
Вот 5 практических ниже задача и решение на мой взгляд если не так, то исправьте.
Дана действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти сумму всех элементов
решение
const
n=10;
var
a: array[1..n,1..n] of real;
i,j:byte;
s: real;
begin

{Сам алгоритм}
for i:=1 to 10 do
if (a[i,i]<0) then
begin {начинаем считать сумму в строке}
s:=0;
for j:=1 to n do
s:=s+a[i,j];
writeln('в ',i,'ой строке сумма элементов равна ',s:5:2);{Выводим результаты}
end;
end.