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.