TP 7.0 нужна помощь

{ процедура меняет местами 2 числа }
procedure Swap(var N1, N2 : Integer);
begin
N1 := N1 + N2; N2 := N1 - N2; N1 := N1 - N2;
end;
{ функция возвращает меньшее из двух чисел }
function Min(N1, N2 : Integer) : Integer;
begin
if N1 < N2 then Min := N1 else Min := N2;
end;
{ процедура сортирует 2 числа в порядке неубывания }
procedure Sort(var N1, N2 : Integer);
begin
if N2 = Min(N1, N2) then Swap(N1, N2);
end;
{ теперь проиллюстрируем работу данных процедур и функции }
var
N1, N2, N3 : Integer;
begin
WriteLn('Пример работы функции Swap:');
N1 := 3; N2 := 4; N3 := 5;
WriteLn('Даны 3 значения: ', N1:3, N2:3, N3:3);
Swap(N1, N2); WriteLn('Swap(N1, N2). Получили следующие значения: ', N1:3, N2:3, N3:3);
Swap(N2, N3); WriteLn('Swap(N2, N3). Получили следующие значения: ', N1:3, N2:3, N3:3);
WriteLn('Min(N1, N2) = ', Min(N1, N2));
WriteLn('Min(N1, N3) = ', Min(N1, N3));
WriteLn('Min(N2, N3) = ', Min(N2, N3));
WriteLn('Отсортируем в порядке неубывания: Sort(N1, N2) Sort(N2, N3) Sort(N1, N2)');
Sort(N1, N2); Sort(N2, N3); Sort(N1, N2);
WriteLn('Получим: ', N1:3, N2:3, N3:3);
end.

Танюш, Вы попробуйте, а что не получиться Вам здесь обязательно помогут и объяснят.
А так делать задание за Вас на вряд ли кто-то будет.