помогите пожалуйста

[innaa639]

Ввести текст из нескольких строк из клавиатуры. В каждой строке текста найти слово, которое расположено в центре строки. Слова разделяются пробилами. Найденные слова записать в новый файл.

[alex_fcsm]

Слова могут разделяться запятой, а строки точкой.

uses crt;
var s,sub:string;
    i,j,n,m:integer;
    a:array[1..10] of string;
    f:text;
begin
assign(f,'c:\1.txt');
rewrite(f);
clrscr;
readln(s);
i:=0;n:=0;
repeat
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if s[i]<>'.' then sub:=sub+s[i];
until s[i]='.';
inc(n);
a[n]:=sub;
m:=n div 2 +1;
writeln(f,a[m]);
sub:='';
n:=0;
until i=length(s);
close(f);
end.

[innaa639]

А где создавать текстовый документ?и как там сказано,что слова должны разделятся пробелами

[innaa639]

Все я уже разобралась,а можна как-то разделять строки не точкой,а иначе

[alex_fcsm]

разделитель задается строчкой
...
else if s[i]<>'.' then sub:=sub+s[i];
until s[i]='.'; - вот тут можете выбрать любой другой символ
inc(n);
...