Множества и Записи в Паскале

[Гамбит]

Всем доброго времени суток! прошу помочь с задачами. нужны на завтра.


1) Дан массив записей. Каждая запись содержит сведения о студенте группы: фамилию, оценки по 5 предметам. Упорядочить массив по невозрастанию сумм оценок

2) Дан массив из n натуральных чисел. Сформировать множество цифр, которых нет в записи хотя бы одного из чисел массива.


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

program lab_81;
uses crt;
type sss=record
         name:string;
         mark:array[1..5] of integer;
         end;
     mass=array[1..5] of sss;
procedure all( var zap:mass; klon:sss);
var i,j,k,sum:integer;
t:sss;
begin
sum:=0;
k:=0;
for i:=1 to 5 do
begin
for j:=1 to 5 do
sum:=sum+klon.mark[j];
end;
if k>sum then
begin
k:=sum;
t:=zap[i];
zap[i]:=zap[i+1];
zap[i+1]:=t;
end;
sum:=0;
end;
Var zap:mass;
i,j:integer;
a,klon:sss;
begin
clrscr;
for i:=1 to 5 do
readln(a.name[i]);
begin
for j:=1 to 5 do
read(a.mark[j]);
end;
all(zap,klon);
for i:=1 to 5 do
begin
writeln(a.name[i]);
for j:=1 to 5 do
writeln(a.mark[j]);
end;
end.

Я понимаю, что скорее всего написал какуюто ахинею, но вы уж необессудте
Прошу помочь. Срочно!