Need help using random function in pascal

hai guise

have this programme:

Program Notwo;
uses wincrt;


var
   letter : char;



function dice(a:integer):integer;
begin
     dice:=random(a);
     writeln('You rolled a 'a);
end;






begin {of main}
      Repeat
            dice;
               write('Enter x to quit the loop : ');
               readln(letter);
            if (letter = 'x') or (letter = 'X') then
            writeln(letter,' entered end of program !');
               Until (letter = 'x') or (letter = 'X');
end. {of main}

But what i need it to do is randomise a dice which repeats till the uset hits x.

how comes this doesnt work?

thnx

pascal
U MENA HASKAL

>>2
I MENA PASCELL

you need less interaction with people and more time spent coding

>>1
               write('Enter x to quit the loop : ');
: ')