LowerCase Program in Turbo Pascal

Here is a very simple program that I wrote in Turbo Pascal for Windows that will ask the user to give a word or a string in all capital letters and then it will convert it into lowercase.

I am currently accepting programming work, it project, school programming projects , thesis and capstone projects, IT consulting work and web development work kindly contact me in the following email address for further details.  If you want to advertise in my website kindly contact me also in my email address also. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Sample Program Output

Program Listing

lowercase.pas

(* Written By: Mr. Jake R. Pomperada *)

(* May 22, 2018                      *)

(* Product of Bacolod City, Negros Occidental Philippines *)

Program LowerCasePascal;

Uses WinCrt,Strings;

Var

  s : Array[0..255] of Char;

Begin

  Write('LowerCase Program in Turbo Pascal');

  Writeln;

  Writeln;

  Write('Written By Mr. Jake R. Pomperada, MAED-IT');

  Writeln;

  Writeln;

  Write('Give a String : ');

  Readln(s);

  Writeln;

  Writeln;

  Write('The lowercase equivalent is ' ,StrLower(s),'.');

  Writeln;

  Writeln;

  Writeln('End of Program');

  Writeln;

  Readln;

End.