Добрый вечер.
Задание
Третья часть вроде так:
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;
Подскажите, пожалуйста, как делать вторую(процедура) и четвертую(функция).