Перевести программу впроцедуры и функции

[sllh_111]

Добрый день. Помогите пожалуйста переделать программу через процедуры и функции(2 варианта):
1) Программу должна состоять из процедур и функций
2) программа должна состоять только из процедур

Var f:array[1..20,1..20] of integer;
min:array[1..20] of integer;
n,i,j,jmin,k,l,b,d:integer;
begin
n:=3;d:=4;
FOR I := 1 TO N DO begin min[i]:=1;
FOR J := 1 TO d DO
Begin
f[I, J]:=random(100);
WRITE('f[', I, ',', J, '] =',f[i,j]:6,' ');
if f[i,min[i]]>f[i,j] then
min[i]:=j;
End;writeln;
end;
FOR i := 1 TO n DO
Begin
k:=f[I, d];f[I, d]:=f[i,min[i]];f[i,min[i]]:=k;
End;
writeln;

FOR I := 1 TO N DO begin
FOR J := 1 TO d DO
Begin
WRITE('f[', I, ',', J, '] =',f[i,j]:6,' ');
End;writeln;
end;
readln;
end.

[sllh_111]

ну хотябы 1)
1) Программу должна состоять из процедур и функций

[andrewpalkin]

Сообщение от sllh_111

ну хотябы 1)
1) Программу должна состоять из процедур и функций

Ну а сам/а , что не получается сделать ?

[sllh_111]

сам
да че-то вообще никак... помогите плиз