[v1s2222]

Вместо

Код:

Origf: file of string[40];
perevodf :file of string[40];

Поставь

Код:

Origf: TextFile;
perevodf : TextFile;

Разве что теперь это будет не типизированный файл, а текстовый, соответственно функция seek работать не будет.