Поиск И Вывод Слов

SergDS

New Member
02.12.2011
0
0
#1
Добрый день, начал писать программу и столкнулся с проблемой, при копирование символов в массив обратно программа возвращает не понятные символы или вообще ни чего, вот код:
Код:
Program U_1;
label up;
Var
word:array[1..10] of string;
space:string;
line, line_c:string;
i,z,p,j,k: Integer;
q:boolean;
Begin
Writeln('Vvedite slova');
{$I-} 
Read(line);
{$I+}
space:=' ';
line_c:=(space+line+space);{*Добавляем в конец и начало строки пробелы*}
z:=Length(line_c);{*получаем число значений строки*}
For i:=1 to z do{*считаем от 1 до конца значений строки*}
begin
If copy(line_c,i,1)<>space then{*если копируемый символ не равен пробелу то выполняются операторный скобки*}
begin
inc(k,1);{*считаем число букв*}
word[i]:=copy(line_c,i,1);{* заносим эти буквы в массив word*}
end;
else
If copy(line_c,i,1)=space then{*если копируемый символ равен пробелу то выполняются операторный скобки*}
begin
inc(p,1);
end;
end;
writeln('Chislo vvedennix slov:',z-k-1);{* выводим число посчитанных слов*}
writeln('result');
writeln(word[i]);{* выводим полученные значения массива*}
readln; 
end.
Необходимо хотя бы выполнить выполнить первую часть условия, то есть занести введённые слова в массив без пробелов и при этом разделенными друг от друга, подскажите что не правильно.