Но я на ней застряла

Напечатайте строку из К случайных символов.
Как?
var
k,l:int64;
Begin
ReadLn(k);
Randomize;
Repeat
Write(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;