задание на строки

[Hikari]

Здравствуйте!
Помогите, пожалуйста, исправить ошибку в коде, составленном для такой задачи на Паскале:

Ввести предложение, слова в котором разделены пробелам и запятыми. Распечатать это предложение, удалив из него те, которые встретились там более одного раза.

вот код:

program stroki;
uses crt;
type mas_slov:array[1..50] of string;
var 
  str_in, str_out:string;
  slova:mas_slov;
  i:integer;
  kol_slov:integer;

procedure init(str_in:string; var massiv:mas_slov);
var 
  i:integer;
  count:integer;
begin
 count:=1;
 fot i:=to length(str_in) do
  if str_in <> ' ' then  
     massiv[count]:=massiv[count] + str_in[i]
    else  
     begin
       count:=count + 1;
       massiv[count]:=' ';
  
     end;
end;


procedure new_text(massiv:mas_slov; count:integer);
var 
  i:integer;
  new_mas:mas_slov;
  srav_slovo:string;

begin
 new_mas[1]:=' ';
 srav_slovo:=massiv[1];
 for i:=1 to count do
  if massiv[i] <> srav_slovo then
    begin
     srav_slovo:=massiv[i+1];
     new_mas[i]:=new_mas[i] + massiv[i];
    end;
 str_out:=new_mas[i];
 write(str_out)                 
end;

Begin
 clrscr;
 writeln('Введите текст: ');
 readln(str_in);
 init(str_in,slova);
 writeln('Текст после обработки: ');
 new_text(slova,kol_slov);
 readkey;
End.

компилятор выдает ошибку "Переполнение стека".

заранее ОГРОМНОЕ СПАСИБО!

[Stilet]

компилятор выдает ошибку "Переполнение стека".

На какой строке зацикливается?

[Utkin]

fot i:=to length(str_in) do

Как он у тебя вообще работает с такой строкой? Это важно, если правильно не напишешь от чего начинается i дальнейшую работу алгоритма можно трактовать по-разному.

[Hikari]

при копировании 1 пропала... а так после ввода на экран строки программа выкидывает и курсор мигает на begin на входе в саму программу.

прошу прощения, на begin в процедуре new_text

[Utkin]

Чему у тебя равен kol_slov в момент старта программы?
То есть, ты запускаешь прогу и доходишь до строки

new_text(slova,kol_slov);

и ?
И еще, представь, что я ввел пустую строку, чего будет делать твой алгоритм тогда?

[Hikari]

но если в процедуре init ввести в качестве формальной переменной var count:integer компилятор выдает ошибку duplicate identification

[Utkin]

Сообщение от Hikari

но если в процедуре init ввести в качестве формальной переменной var count:integer компилятор выдает ошибку duplicate identification

Внимательно прочти пост #6 и попытайся ответить на его вопросы.

[Hikari]

возможен ли другой, более рациональный, алгоритм для решения этой задачи?

[Utkin]

Я бы поступил бы аналогично - внес бы слова из предложения в массив, а затем отсортировал бы его. Тогда надо будет сравнивать только смежные слова.