Программа

FUNCTION GetRandomStr(Len:byte):string; { Функция получения случайной строки }
  Var i:byte;      { Счетчик }
      Buf:string;  { Буфер для формирования строки }
  Begin
    Buf:='';  { Сброс строки }
    for i:=1 to Len do { Цикл формирования строки }
      Buf:=Buf+Chr(Ord('A')+Random(26)); { Набор строки }
    for i:=Len+1 to 255 do { Цикл дополнения строки пробелами }
      Buf:=Buf+' '; { Дополнения пробела }
    GetRandomStr:=Buf { Определение значения функции }
  End;
BEGIN
  Randomize;
  WriteLn(Copy(GetRandomStr(10+Random(5)),1,70))
END.