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

[Krono]

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

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

[Unconnected]

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

const n=100;
var s,s2:string;
    a,b,m,m2:integer;
    mas1:array[1..n] of byte;
begin
  writeln('Vvedite dlinu slova,kratnuyu 100');
  readln(m);
  if 100 mod m <> 0 then begin
                           writeln('Vvedennoe chislo ne kratno 100!');
                           readln;
                           halt;
                         end;
  writeln('Vvedite sapis');
  readln(s);
  b:=1;
  for a:=1 to 100 div m do
  begin
    mas1[a]:=b;
    b:=b+m;
  end;
  writeln('Vvedite nomer slova dlya poiska');
  readln(m2);
  s2:=copy(s,mas1[m2],m);
  writeln(s2);
  readln;
end.