Greetings, All...

I'm sure for all you experienced programmers this is going to look ridiculous.

All the same.

Can anyone point out any flaws in this code, and how should I call it from
the main program block?

function key(validkeys, grebblevar : string) : char;
var
   happychar		: char;
   q			: integer;
   finito,invalid,valid : boolean;

begin
     repeat
	   happychar := upcase(grebblevar[1]);
	   for q := 1 to length(validkeys) do
	   begin
		repeat
		      if upcase(validkeys[q]) = happychar then
		      begin
			   key := happychar;
			   finito := true;
		      end
		      else
		      begin
			   if (q > length(validkeys)) then invalid := true;
			   if invalid = true then finito := true else finito := false; 		      end;
		until finito = true;
	   end;
	  if invalid = true then valid := false else valid := true;
     until valid;
end;

  -- Keith...
... WANTED DEAD AND ALIVE: Schroedinger's Cat.
--- timEd/2-B11