Program zamieniający mały litery na wielkie [Pascal/C++]

program zamianaliternaduze;


var

  wyraz, nwyraz : string;
  a, l : char;
  n : byte;
  dlugosc, i : integer;

begin

  writeln('Podaj wyraz:');
  readln(wyraz);
  dlugosc:=length(wyraz);

  for i:=1 to dlugosc do
    begin
      a:=wyraz[i];
      n:=ord(a);

        if (n >= 97) and  (n <= 122) then
          begin
            n:=n-32;
          end

        if (n >= 65) and (n <=122) then
          begin
            l:=chr(n);
            nwyraz:=nwyraz+l;
          end;

    end;

  writeln;
  writeln('Nowy wyraz to: ', nwyraz);
  readln;

end.

int toupper(int c);

#include <iostream>
#include <cctype>

using namespace std;

int main()
{
  char ch;

  cout<<"Wpisz tekst: ";
  cin>> ch;

  
  ch = toupper (ch);
  cout<<ch;
  
  getchar();
  cin.get();
}

#include <iostream>
#include <cctype>

char c;
while (std::cin >> c) {
    std::cout << (char)std::toupper(c);
}

#include <iostream> 
#include <cctype> 

using namespace std; 

int main() 
{ 
  char ch; 
  string tekst;
  string ntekst;
  int dlugosc;
  
  cout << "Wpisz tekst: "; 
  cin >> tekst;
  
  dlugosc = tekst.length();
  
  for(int i=0; i<=dlugosc-1; i++)
  {
  ch = tekst[i];
  ch = toupper(ch);
  ntekst = ntekst + ch;
  } 

  cout << ntekst;

  getchar();
  cin.get();
}

#include <string>
#include <iostream>

std::string napis;
std::getline(std::cin, napis); // wczytaj cały wiersz do napisu

#include <iostream> 	
#include <cctype> 

using namespace std; 

int main() 
{ 
  char ch; 
  string tekst; 	
  string ntekst;
  			  
  cout << "Program zmieniajacy wprowadzony tekst na duze litery." << endl << endl;
  
  cout << "Wpisz tekst: " << endl;
  
  std::getline(std::cin, tekst);
  
  for(int i=0; i<=tekst.length()-1; i++) 
  { 	
  ch = tekst[i]; 
  ch = toupper(ch); 	
  ntekst = ntekst + ch; 
  } 	
  
  cout << ntekst << endl;	
  cin.get(); 
}