Одномерный массив и записи Опции

[Галия]

Привет! Поиогите пожалуйста решить 2 задачи!
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
кол-во элементов массива, равных 0.
сумму элементов массива, расположенных после минимального элемента.
Упорядочить элементы массива по возрастанию модулей элементов

Записи:
Описать переменную расписания, содержащую:
день недели
кол-во пар в этот день
время начала и конца пары
название предмета
фамилию препода
Вывести полную информацию о занятиях, относящихся к предметной области "Информатика"
Заранее спасибо!!!

[AlaRic]

Так будет чуть легче:

Код

uses Crt;
const n=8;
var a:array[1..n] of real;
i,j,k,l:byte;  min,S,h:real;
begin
ClrScr;
k:=0;S:=0;
min:=a[1]; l:=1;
writeln('vvedite masiv:');
for i:=1 to n do begin
write('vvedite',' ',i,'-uj element masiva:>',' ');
readln(a[i]);
if a[i]=0 then inc(k);
if a[i]<min then
begin
min:=a[i];
l:=i;
end;
end;
writeln('zadanuj masiv:');
for i:=1 to n do
write(a[i]:4:1);
writeln('kolichestvo nulevux elementov masiva=',' ',k);
for j:=l to n do
S:=S+a[j];
writeln('min=',' ',min:4:1);
writeln('summa elementov posle min=',' ',S:4:1);
writeln;
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
h:=abs(a[i]);
a[i]:=abs(a[i+1]);
a[i+1]:=h;
end;
writeln('sortirovka masiva po vozrostaniu');
for i:=1 to n do
writeln(a[i]:4:1);
end.