vark,l:int64;BeginReadLn(k);Randomize;RepeatWrite(Chr(Random(255)));l:=l+1;Until l=k;End.
Randomize;For i := 1 to K do begin write(chr(random(256-32) + 32));end;