Работа с матрицами, Шифровка текста Опции

[Цырилла]

Необходимо зашифровать текст из 121 буквы, его необходимо записать в квадратную матрицу порядка 11 по стокам, начиная с центра (т. е. с элемента, имеющего индексы 6, 6), а затем по часовой стрелке все остальные символы.
Может кто раньше подобное делал подкажите.

[volvo]

переменная vihod почему-то оказывааетяс пустая

Само собой, ты же полез во внутреннее представление сам, не используя процедуры Паскаля, значит, ответственность за установку длины - тоже на тебе:

1)

  text, vihod:string[n*n]; { <--- ограничить длину }

2)

  vihod[0] := chr(n*n); { <--- Добавить вот это }
  writeln(vihod);
  readkey;