var
s : string;
i : Integer;
begin
Write('Bir Karakter Dizisi Giriniz: ');
ReadLn(s);
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
WriteLn('KARAKTER DİZİSİ BUYUK HARFE DÖNÜŞTÜ ',s);
Readln;
end.

Girdiğin karakterli büyük harfe çevirir bu işini görür mü