Работа с текстовыми файлами.

[Константинн]

Задание!
Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых
*********************************** ************************
Код

program xxx;
var f1,f2:text;
    x:char;
    st:string;
begin
assign(f1,'Text.txt');
assign(f2,'MText.txt');
Reset(f1);Rewrite(f2);
while not eof(f1) do
begin
 while not eoln(f1) do
  begin
   readln(f1,x);readln(f1,st);
   if (x<>',') or (x<>' ') or (x<>'-')  then
     writeln(f2,st);
end;end;
close(f1);close(f2);
Erase(f1);Rename(f2,'Text.txt');
end.

Посмотрите почему не работает???
Заранее благодарен всем откликнувшимся.