...
while not eof(f) do // f - файловая переменная
begin
readln(f,s);
i:=1;
while s[i] =' ' do
inc (i);
if (s[i] = '-') then
writeln(s);
end;
...