Файлы.Текст Опции

[vi-rus]

Дано такое задание :
Дан файл, содержащий текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
( исходные текстовые файлы создаются с помощью какого-либо текстового редактора )
Вот примерно сделал, но не работает ( пишет File not open to input ) . Подскажите, что за ошибка и вообще может программа неправильно написана ?

program lab_file_zadanie2;
uses crt;
type ff= text;
var i,k,z:integer;
    tex,tex2:ff;


 begin
clrscr;
 assign(tex,'labfile\zadanie3.txt');
 assign(tex2,'labfile\za31.txt');
 rewrite(tex2);
 while not eof(tex) do
       begin
  read(tex,i);
  z:=i;
    while not eof(tex) do
        begin
      read(tex,i);
      if z=i then write(tex2,i);
      end;
     end;
     close(tex);
     close(tex2);
   reset(tex2);
   while not eof(tex2) do
     begin
      read(tex2,i);
      write(i,' ');
      end;
     close(tex2);


     repeat until keypressed;

 end.

[vi-rus]

Подскажи, пожалуйста, как исправить проблему с русским языком ? программа выдает какие-то иероглифы