Pascal zamiana liczby na tekst HELP :D

[krynio]

nie wiem gdzie upchnac srt() i jak go wstawic
looknijcie

Uses
Graph,Crt;

Var

Sterownik,Tryb:Smallint;
tab:array[1..6]of byte;
i:byte;


Begin
randomize;

for i:=1 to 6 do
begin
tab:=random(49)
end;


DetectGraph(Sterownik,Tryb);
InitGraph(Sterownik,Tryb,'');

Readln;
CloseGraph;
End.