[Pascal] zamiana na funkcję

Witam. Napisałem pewien programik w Pascalu, jednak potrzebuję zamienić go na funkcję. Jak to zrobić?

uses
    crt;
var
   tab:array[0..1000] of integer;
   a,min:integer;
begin
     clrscr;
     randomize;
     for a:=1 to 20 do
     tab[a]:=random(1001);
     for a:=1 to 20 do
     writeln (tab[a]);
     min:=tab[a];
     for a:=1 to 20 do
         begin
         if tab[a]<min then
         min:=tab[a];
         end;
     writeln('Najmniejsza liczba to: ',min,'.');
     readln;
end.

Tu masz wszystko: Rozdział 2

Cały program chcesz zamienić na funkcję czy jakiś fragment?

Cały.

1.Po co ?
2.madmike już dał Tobie linka. Pomyśl.

rofl napisał(a)

Cały.

Cały to bez sensu. Musisz określić co ta funkcja ma robić.

mozna na 3:
jedna zwraca talibce z losowymi wartosciami
druga ja wyswietla (chociaz to bardziej procedura)
trzecia znajduje min/max w podanej talibcy