Найти слово, расположенное в центре строки ...

[Кулибаба Петро]

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

[Stilet]

И в чем сложность? Не знаешь как разбить на слова?
Вот пример: http://www.programmersforum.ru/showt...369#post398369

[Mad_Cat]

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

k:=length(s) div 2;
i1:=k;
while (s[i1]<>' ') and (i1>1) do dec(i1);
while (s[k]<>' ') and (k<length(s)) do inc(k);
writeln(copy(s,i1,k-i1+1));

[Кулибаба Петро]

Спасиба!!!! Работает...

program centerslovo;
uses crt;
var f1:text;
s:string;
center,k,il:integer;

procedure create_f1;
begin
assign(f1,'slovo.txt');
rewrite(f1);
writeln('Уведіть рядок:');
read(s);
writeln(f1,s);
close(f1);
end;

procedure vuvedenja_f1;
begin
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
writeln('Уведений рядок:');
writeln(s);
end;
close(f1);
end;

procedure uvedene_slovo;
begin
writeln('Довжина стрічки:',length(s));
writeln('Середина стрічки:',length(s)/2:1:0);
end;

procedure centralne_slovo;
begin
writeln('Центральне слово:');
k:=length(s) div 2;
il:=k;
while (s[il]<>' ') and (il<>1) do dec(il);
while (s[k]<>' ') and (k<length(s)) do inc(k);
writeln(copy(s,il,k-il+1));
end;

begin
clrscr;
writeln('============================================');
create_f1;
writeln('============================================');
vuvedenja_f1;
writeln('============================================');
uvedene_slovo;
writeln('============================================');
centralne_slovo;
writeln('============================================');
readkey;
end.