Program Pascal Menentukan Bilangan ASCII

uses crt;
var i: char;
k:integer;
f : text;
begin
k:=0;
assign(f,'d:\cbasscii.txt');
rewrite(f);
for i:= #00 to #255 do
begin
writeln(f,k,'====',i);
k:=k+1;
end;
end.