Заполнить матрицу линейной последовательностью

[Настенька..Блонди]

Помогите плиз оч надо!!!!!!

1. Заполнить матрицу линейной последовательностью, от левого верхнего угла по спирали: вправо - вниз - влево - вверх. Размерность матрицы должна вводиться при выполнении программы. Само решение задачи должно быть оформлено в виде функции, которой передается матрица и ее размерность.
2. Описать функцию WordN(S,k) строкового типа, возвращающую*k-е слово строки*S (под словом понимается набор символов, не*содержащий пробелов и*ограниченный пробелами или началом/концом строки). Если количество слов в*строке меньше*k, то*функция возвращает пустую строку. Используя эту функцию, выделить из данной строки*S слова с*номерами*k1, k2, k3.

[Настенька..Блонди]

!!!!!!!!!!В Паскале!!!!!!!!!!!

[alex_fcsm]

Пользуемся поиском

[alex_fcsm]

uses crt;



function WORDN(s:string;x:integer):string;
var sub:string;
    i,n:integer;
    a:array[1..100] of string;
    q:set of char;
begin
q:=[',','.',':','?','!'];
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if not(s[i] in q) then sub:=sub+s[i];
until (i=length(s))or(x=n);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;

if x>n then WORDN:=''
   else WORDN:=a[x];
end;


var s:string;

begin
clrscr;
writeln('Input str');
readln(s);
writeln(WORDN(s,2));
writeln(WORDN(s,5));
writeln(WORDN(s,7));
end.

[Настенька..Блонди]

пасиб)) а первую не знаете???

[Sazary]

Настенька..Блонди
alex_fcsm дал вам ссылку в 3-м посте. Практически такая же задача.