Bảng mã ASCII

Viết chương trình in ra màn hình các giá trị của bảng mã ASCII từ 0 đến 255.
                                                                 Giải
Uses crt;
Var
       i: Integer;
BEGIN
       For i:=0 to 255 do
           begin
               Writeln(i,' tuong ung la ',chr(i));
               If (i Mod 25) = 0 Then
                   begin
                       Writeln('Ban phim bat ku de xem tiep');
                       Readln;
                   end;
           end;
       Readln;
END.