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

[Krono]

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

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

[Krono]

вообщем смысл всей моей программы:
1. создать строку с заданным кол-вом букв и слов
2. пронумеровать все слова строки (не могу понять как это делается)
3. вывести слово с заданным номером на экран (ввод номера с клавиатуры)

в инсте нам вообще ничего не объясняют , просто дают задание и делай что хочешь
я пытаюсь сам сделать , но в паскале я мало что понимаю

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

  var
     a:char; 
     b,pos,n,m,g,i:byte;
     str,str0:string; 
     iocode:integer;
     key,key_2:char;
     name:string;
     f:text;
begin
    clrscr;
    writeln('otkuda budete wwodit dannije?');
    writeln('1 - s klaviatyrj');
    writeln('2 - iz fajla');
    readln (key);
    case key of
    '1':   begin
          writeln('vvedite proverjaemi simvol');
          readln(a);
          writeln('vvedite dliny slova');
          readln(b);
          writeln('vvedite kol-vo slov');
          readln(m);
          writeln('vvedite stroky dlinoi ',m*b);
          readln(str);
          WriteLn(' Vvedite save or  not save file   ');
          WriteLn(' Save rezault 1-yes 2-no');
          Readln(key_2);
          case key_2 of
          '1':begin
                repeat
                   Writeln(' soxraniau,vvedite name==>');
                   readLn(name);
                   assign(f,name);
                   {$I-}
                   rewrite(f);
                   {$I+}
                   iocode:=ioresult;
                   if iocode<>0 then WriteLn('oshibka vvoda!!!');
                until(iocode=0);
                write(f,str);
                close(f);
              end;
          '2':WriteLn(' ne soxraniau');
             else begin { oshibka vvoda faila}
              writeLn(' vvod ne correckten');
              WriteLn(' fail ne budet soxranen!!!');
             end;
            end;
           end;
    '2': begin
          repeat
            WriteLn('vvedite imia fail');
            readln(name);
            assign(f,name);
            {$I-}
            reset(f);
            {$I+}
            iocode:=ioresult;
            if iocode<>0 then WriteLn('Faila ',name,' po dannomu pyti net!');
          Until iocode=0;
          read(f,str);
          WriteLn(str);
          close(f);
         end;
     else
         begin
            Writeln('  nepravelno vveden kod simvola');
            WriteLn('  programma zaversena ');
            WriteLn('  exit  after KeyPressed   ');
         Repeat until keyPressed;
        exit;
      end;
     end;

     begin
       pos:=0;
       n:=1;
       g:=b;
       i:=1;
     while pos<=(m*b) do begin
       if str[pos+1]=a then begin
          pos:=pos+b;
          for pos:=n to g do
            str0:=str0+str[pos];
          writeln('slovo ',i,str0);
          i:=i+1;
       end
       else pos:=pos+b;
       n:=n+b;
       g:=g+b;
       delete(str0,1,length(str0));
      end;
      readkey;
    end;
end.