Задача на файлы

[DIgorevich]

Видимо то, что задано "цепочку", получившуюся строковую переменную.

[Janetka]

Выводит только первое слово и первую букву второго...и всё! ((

[DIgorevich]

Полностью листинг в студию плз. А еще в каком виде строки в файле и сколько строк там?

[Janetka]

var 	f1,f2:text;                                                               
    	i,n,dl,y:integer;                                                         
    	s,slovo,bukva:string;                                                     
    	a:array [1..100] of string;                                               
begin                                                                         
{формируем первый файл}                                                       
assign(f1,'file1.txt');{устанавливаем связь файловой переменой с физическим файлом на диске}
rewrite(f1); {открываем файл для записи}                                      
readln(n);     {определим количество вводимых строк}                          
for i:=1 to n do begin                                                        
readln(s); {вводим с клавиатуры строки}                                       
writeln(f1,s); {записываем последовательно строки в файл}                     
a[i]:=s;                                                                      
end;                                                                          
close(f1); {заканчиваем работу с первым файлом}                                                                          
{берем первое слово из массива}                                               
slovo:=a[1]+' ';                                                                              
{удаляем первое слово из массива}                                             
a[1]:=' ';                                                                    
for i:=0 to n do begin {проходим по массиву}                                  
{получаем последнюю букву из строковой переменной до пробела}                 
dl:=length(slovo);                                                            
bukva:=copy(slovo, dl-1, 1);                                                  
for y:=0 to n do begin                                                        
if bukva=a[y][1] then begin                                                   
slovo:=slovo+a[y]+' ';                                                        
a[y]:=' ';                                                                    
end;                                                                          
end;                                                                          
end;                                                                          
writeln(slovo);                                                               
end.

Вот такая вот программа....

[RomiKon]

Лично меня смутил способ присваивания значения переменой bukva.
Разве не легче так: bukva:=slovo[Length(slove)-1];
Да и тип этой переменой лучше брать символьный: bukva: char;
ну и удалять лучше не строку из элемента массива, а сам элемент массива.
Для этих целей послужит динамический массив: stroki: array of string;
Длину такого массива можно задать : SetLength(stroki, n);
Да кстати тут важна длина строки на выходе если она больше 255 то все операции на смарку.
Лучше для этих целей использовать массив

[DIgorevich]

Я давал лишь идею (алгоритм) реализации. За оформлением кода и расходом ресурсов не слежу, т.к. предпочитаю, чтобы человек сам учился, а не всё разжеванное поглощал .

[Janetka]

Мне, девушке, программирование, честно сказать, не нужно...Но даже не смотря на это, я стараюсь что-либо в этом понять....к сожалению не очень то получается. Спасибо за ваши советы, но для меня это мало изменило дело((( Я смотрю на результат, который в моем случае отсутствует: задача НЕ РЕШЕНА...

[RomiKon]

Хорошо в таком случае выложи полный текст задачи.
Я постараюсь написать код с коментами.

[Janetka]

Да, сейчас))
Полный текст программы: В текстовом файле задан набор слов. Построить из них любую цепочку таким образом, чтобы символ в конце слова совпадал с символом в начале следующего.
Кстати, тот код программы, который я в последний раз здесь разместила, я с учетом ваших советов подкорректировала, а именно:
1) переменную bukva объявила типа char и 2) bukva:=slovo[Length(slove)-1];
В итоге при выводе у меня получилось вот что: выводится первое слово, а затем все остальные слова выводятся все на ту букву, на которое заканчивается певое...

[RomiKon]

Вот как то так я ещё не тестил ибо времени нет будут вопросы пиши