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

[Галия]

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

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

[Catty]

Код

uses Crt;
type
raspisanie=record
den:string;
k_par:byte;
vremja_nach:byte;
vremja_kon:byte;
predmet:string;
fam:string;
end;
var
a:array[1..20] of raspisanie;
i,n:byte;    anw:char;
Begin
ClrScr;

i:=1; repeat
with a[i] do begin
write('den:>'); readln(den);
write('k_par:>'); readln(k_par);
write('vremja_nach:>'); readln(vremja_nach);
write('vremja_kon:>'); readln(vremja_kon);
write('predmet:>'); readln(predmet);
write('fam:>'); readln(fam);
end;
inc(i);

writeln('Do u want to create a new one record ?');
 readln(anw);
 until (anw ='N') or (anw='n');

n:=i-1;
ClrScr;
writeln('informacija o predmete "informatika"');
writeln;
for i:=1 to n do
begin
if (a[i].predmet='informatika') then
with a[i] do begin
write('den:>'); writeln(den);
write('k_par:>'); writeln(k_par);
write('vremja_nach:>'); writeln(vremja_nach);
write('vremja_kon:>'); writeln(vremja_kon);
write('predmet:>'); writeln(predmet);
write('fam:>'); writeln(fam);
end;
end;
ReadKey;
End.

так что ли? :p2: