program duze_i_male_litery;

uses crt, sysutils;
var
   wyraz:string;
   wynik:string;
   k : char;

function wielkaLitera(mala : char):char;
begin
	wielkaLitera:= UpCase(mala);
end;

function malaLitera(duza:char):char;
var
	lowCaseString:string;
begin
	lowCaseString := LowerCase(duza);
	malaLitera:= lowCaseString[1];
end;

function zmienWielkosc(wyrazWejsciowy : string):string;
var
	index : integer;
begin
	For index := 1 To Length(wyrazWejsciowy) Do
	Begin
		If wyrazWejsciowy[index] = wielkaLitera(wyrazWejsciowy[index]){czyli jeżeli mamy do czynienia z wielka litera to zmieniamy na mala}
		Then
			wyrazWejsciowy[index] := malaLitera(wyrazWejsciowy[index])
		Else{czyli jeżeli mamy mala litere to zamiana na duza}
			wyrazWejsciowy[index]:= wielkaLitera(wyrazWejsciowy[index]);
	End;

	zmienWielkosc:=wyrazWejsciowy;
end;

procedure WyswietlInfo;
begin
	Writeln('===========Duze male litery============');
	Writeln('====Program zmienia bla bla bla itd autor: Ja=======');
	Writeln('=======================================');
end;

procedure autor;
begin
	Writeln('Program duze male litery zostal napisany przez:');
	Writeln('Grzegoorz Dziedzic');
end;

begin
	WyswietlInfo;
	WriteLn('Podaj wyraz do zmiany');
   	WriteLn('wyraz= ');
        Read(wyraz);
	wynik := zmienWielkosc(wyraz);{wywołanie funkcji zmienWielkosc i przypisanie wyniku jej wykonania do zmiennej wynik}
	WriteLn(wynik);
	Writeln('Wyswietlic autora? [ T / N]');
        repeat until keypressed and ((wielkaLitera(readkey)='T') or (wielkaLitera(readkey)='N'));
	k:=readkey;
	If wielkaLitera(k)='T' Then autor;
        Writeln('Aby wyjsc wcisnij Esc');
        repeat until keypressed  and (readkey=#27);
end.