Строки Опции

[Herotic]

Помогите пожалуйста разработать программу, которая считывает текст из файла и выводит на экран только предложения, в которых нет запятых и двоеточий. Спасибо большое.

[Herotic]

В общем попробовал сделать это все дело и вот что получилось:

Program File_text;
Uses CRT;
var
f1 : text;
st : string;
n: byte;
i:integer;
ka:integer;
begin
ClrScr;
assign   (f1, 'file1.txt'); 
rewrite  (f1); 
writeln ( f1, 'Tolko ety stroky dolshno vivesty. v etoi stroke nety zapyatih i dvoetochiy');
writeln ( f1, 'I ety toje parampampam'); 
writeln ( f1, 'sdfsdfsdf,');
writeln ( f1, 'sdfsdf:');
writeln ( f1, 'sdfsdfd:,');
close (f1);    
reset (f1); 
while not eof (f1) do 
begin
readln (f1, st);
for i:= 1 to length(st) do
begin
 if (st[i] =':') OR (st[i] =',') then
 writeln(st);
 end;
end;
close (f1); 
readln
end .

Сейчас программа выводит строки где есть символы двоеточия и запятой. А вот если я пытаюсь сделать "не равно" то выводит лабуду. Подскажите пожалуйста, как правильно сделать, чтобы оно работало?