program kody;
{ Program vypíše kódy všech znaků, každý na vlastní řádek ve formátu kód znaku: znak.
Všimněte si, jak jsou seřazené znaky '0', ..., '9' a malá a velká písmena anglické abecedy.
Výstup je vypisován do souboru znaky.txt. }
var i : integer;
f : text; { Proměnná pro práci s textovým souborem. }
begin
assign(f,'znaky.txt'); { Textové proměnné f přiřadíme relativní cestu k souboru. }
rewrite(f); { Do souboru chceme zapisovat - a pokud už takový soubor existoval, tak ho přepíšeme.}
for i:=0 to 255 do
writeln(f,i,': ',chr(i)); { Aby se zapisovalo do souboru, první argument příkazu writeln je proměnná f. }
close(f); { Nesmíme zapomenout soubor zavřít. }
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)