Umístnení souboru www.TrSek.com/zadania/nahradenie_pismen.pas{ NAHRADENIE_PISMEN.PAS Copyright (c) Pheo }
{ Program ktorý v danom súbore nahradí všetky malé písmená ve¾kými. }
{ }
{ Datum:06.04.2005 http://www.trsek.com }
program nahradenie_pismen;
var s1,s2:Text;
c:char;
begin
assign(s1,'vstup.txt'); reset(s1);
assign(s2,'vystup.txt'); rewrite(s2);
while not(Eof(s1)) do
begin
read(s1,c);
if (c>='a') and (c<='z') then
c:=chr(ord(c)-ord('a')+ord('A'));
write(s2,c);
end;
close(s1);
close(s2);