8единец|| класса и 600 единиц | класса

i,size:integer;

  r:array of char;

begin

size := ord('&') - ord('!');

setlength(r,size);

i := ord('+');

for i := (ord('$') - ord('$')) to 
(ord('%') - ord('!')) do

begin

r[i] := chr(ord('█') - ord(#9)- 
(ord('>') - ord('<')) * i);

end;

r[ord('.')-ord('*')] := 
chr(ord('~')-ord('~'));

for i := 0 to size - 1 do

write(r[i]);