Вывод определенного слова, работа со строками, словами Опции

[Krono]

задана запись ,состоящая из букв , кол-во букв кратно N . Всего в записи M слов длинной N. Составить программу печати слова с заданным номером A.

задали недавно , не получается никак сделать , сдавать надо через 2 дня

[Lapp]

задана запись ,состоящая из букв , кол-во букв кратно N . Всего в записи M слов длинной N.

Насколько я понял, места для пробелов не остается. Слова определяются только координатами.

пример меню выкладываю

При чем тут вообще меню? В задаче про меню ни слова..

Возможно, так?

Unconnected в своем репертуаре..
1. Почему в программе жестко задано число 100? Про него что-то есть в условии?..
2. Ты понимаешь кратность с точностью до наоборот: кратно значит "делится на", а у тебя по смыслу "является множителем".
3. В задании сказано создать запись, а ты просишь ее ввести..

Но принцип решения в целом верный. Вот вариант, основанный на том же принципе, и свободный от перечисленных недостатков. По-прежнему вся запись хранится в переменой типа string, поэтому общее количество букв ограничено 255.

const
  e='Mnogovato budet..';

var
  n,m,i: integer;
  s: string;

begin
  repeat
    repeat
      Write('Vvedite kolichestvo slov: ');
      ReadLn(m);
      if m>255 then WriteLn(e)
    until m<255;
    repeat
      Write('Vvedite chislo bukv v slove: ');
      ReadLn(n);
      if n>255 then WriteLn(e)
    until n<=255;
    if m*n>255 then WriteLn(e)
  until m*n<=255;
  s:='';
  for i:=1 to m*n do s:=s+Chr(Random(28)+65);
  WriteLn('Sozdana zapisj:');
  WriteLn(s);
  repeat
    Write('Vvedite nomer iskomogo slova: ');
    ReadLn(i);
    if i>m then WriteLn(e)
  until i<=m;
  WriteLn('Vot vashe slovo: ',Copy(s,n*(i-1)+1,n))
end.