работа с текстовым файлом(pascal)

[-COREY-]

условие:
Задан текстовой файл. Напечатать все элементы этого файла отличные от цифр, латинских и русских букв. (каждый элемент печатать только по одному разу, независимо от того, сколько раз он встречается).Результат нужно записать в другой файл.
код:
Program Corey_9;
var f,f1:file of string;
i:integer;
S:string;
a:set of char;
procedure one;
begin
a:=[',','.','!','@','$','(',')'];
for i:=length(S) downto 1 do
for i:=0 to 255 do
if a in S then writeln(i,' ');
readln(f,S);
end;
begin
assign(f,'F:\input.txt');
reset(f);
assign(f1,'F:\input2.txt');
rewrite(f1);
while not eof(F) do one
writeln(S);
writeln(f1,S);
close(f);
close(f1);
readln
end.
ошибка в строке - if a in S then writeln(i,' ');
pascal пишет error 41.
напишите,пожалуйста,как решить эту проблему и проверьте на наличие других ошибок.Заранее спасибо

[Sazary]

for i:=length(S) downto 1 do
for i:=0 to 255 do

Пытаетесь использовать один и тот же счетчик в двух циклах?

a:=[',','.','!','@','$','(',')'];

Вы так уверены, что это все существующие элементы "отличные от цифр, латинских и русских букв"?

И потом:

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

То есть нужно заводить второе множество.

Проще было переписать.

Program Corey_9;
uses crt;
var f,f1: text;
a,b:set of char;
c : char;

begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(f1,'input2.txt');
rewrite(f1);

a := ['0'..'9','A'..'Z','a'..'z'];
b := [];

while not eof(F) do
 begin
 read(f,c);
 if not (c in a) and not (c in b) then
  begin
  write(f1,c);
  include(b,c);
  end;
 end;

close(f);
close(f1);
readln;
end.

Русские буквы в множество a добавьте сами.