исправить ошибку,Паскаль

[Aidar9119]

есть ошибка в коде,исправьте,она вроде простая

Program P17_1_9_2;
 uses crt;
 var bukvi:set of char;
 d:text;
 slovo,c,s,possl:string;
 pslovo,i,n,k:integer;
 massl:array[1..100] of string;
 x:string;
begin
  writeln('vvedi razmer');
  readln(n);
  for i:=1 to n do
    begin
     read(massl[i]);
     readln;
    end;
    SLOVO:=massl[1];
  for i:=1 to n do
    if slovo=massl[i+1]
    then
     k:=k+1;
     SLOVO:=massl[i+1];
    else
    writeln(slovo);
  end;
  if k>1 then
   writeln('net takih simvolov');
  readln
end.

[Lenya]

Напиши что должна сделать программа.

[dosha]

 var bukvi:set of char;

 d:text;

 slovo,c,s,possl:string;

 pslovo,i,n,k:integer;

 massl:array[1..100] of string;

 x:string;

begin

  writeln('vvedi razmer');

  readln(n);

  for i:=1 to n do

    begin

     read(massl[i]);

     readln;

    end;

    SLOVO:=massl[1];

  for i:=1 to n do

    if slovo=massl[i+1]

    then
     begin
     k:=k+1;

     SLOVO:=massl[i+1];
     end
    else

    writeln(slovo);

  if k>1 then

   writeln('net takih simvolov');

  readln

end.

[Aidar9119]

вот само задание:Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.

[dosha]

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

вот само задание:Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.

мб слова????