Добрый вечер.

Задание

Третья часть вроде так:

procedure writematr(n:integer);
var
i,j:integer;c:real;
begin
for j:=1 to n do
if a[2,n]>a[2,j] then
begin
c:=a[2,j];
a[2,j]:=a[2,n];
a[2,n]:=c;
end;
writeln('После сортировки');
for j:=1 to n do
write (a[2,j]:5:2,'',);
writeln;
end;

Подскажите, пожалуйста, как делать вторую(процедура) и четвертую(функция).

@темы: Pascal, Алгоритм