Pascal/Turbo Pascal - Frase Primera Letra Mayúscula Resto Minúscula

necesito hacer el siguiente programa:

Pedimos una frase por teclado y que nos la devuelva de forma que todas las palabras estén
con la primera letra en mayúscula y las demás en minúscula,
Todo ello independientemente de cómo se hayan introducido.

llevo muchisimas horas intentandolo y no me sale de ninguna de las maneras.

agradezco vuestra ayuda

al final he podido resolverlo. aqui te lo publico

program frasemayusculas;

uses crt;

procedure inicio(var frase : string);

begin
clrscr;
writeln('============================================================');
writeln('Escribe una frase y te lo devuelvo con la');
writeln('primera letra en mayuscula y el resto minuscula');
writeln('============================================================');
writeln;write('Escribe una frase: ');
readln(frase);
end;

procedure despide;

begin
writeln;write('Pulsa para salir...');
readkey;
end;

function minuscula(var c : char): byte;

begin
if c in ['A'..'Z'] then inc(c,32);
end;

procedure cambio_letras(var frase : string);

var cont : byte;

begin
FOR cont:=1 to length(frase) do
if frase[cont-1] = ' '
then frase[cont] := Upcase(frase[cont])
else minuscula(frase[cont]);
frase[1] := upcase(frase[1]);
end;

var frase : string;

BEGIN
inicio(frase);
cambio_letras(frase);
writeln;writeln('La frase final es: ',frase);
despide;
END.