program majMin;
uses crt,strings;
var text:string;reponse:char;j:integer;


function strToUpper(chaine:string):string;

var i:integer; result:string;
begin
result:=('');
for i:=1 to length(chaine) do
result:=result+strupper(@chaine[i])^;
strToUpper:=result;
end;

function StrToLower(Chaine:string):string;

var i:integer;result:string;
begin
result:=('');
for i:=1 to length(chaine) do
result:=result + Strlower(@chaine[i])^;
StrToLower:=result;
end;

begin

    repeat
    for j:=1 to 54 do
    begin
    write('*');
    delay(50);
    end;
    writeln;
    writeln('|                                                    |');
    writeln('|    BIENVENUE SUR LE PROGRAMME DE TRANSFORMATION    |');
    writeln('|                    DE CARACTERE                    |');
    writeln('|                                                    |');
     for j:=1 to 54 do
     begin
     write('*');
     delay(50);
     end;



    writeln;
    writeln;
    writeln;
    for j:=1 to 8 do
    begin
    write('. ');
    delay(500);
    end;
    writeln;
    writeln;
    writeln;
    sound(440);
    writeln('Veuillez donner s''il vous plait le TEXTE a transformer');
readln(text);
writeln('en majuscule : ', strtoupper(text));
writeln('en miniscule : ', strtolower(text));

writeln;
writeln('Avez vous terminer: oui(o) ou non(n)');
readln(reponse);
delay(1000);
clrscr;
until (reponse='o');
end.