Pascal Замена всех маленьких английских букв в строке соответствующими большим

[#Azamat]

Программа заменяет все маленькие английские букв в строке соответствующими большим.

// Замена маленьких английских букв в строке большими
var 
  c: char;
  s: string;
  n: integer;
begin
  n := 10;
  c := 'z';
  s := '';
  for var i:=1 to n do
    s += c;
  writeln(s);
end.

Автор: Неизвестен