[v1s2222]

Вот второй вариант... для паскаля...

Код:

var
  f: TextFile;
  s, s2: String;
begin
  AssignFile(f, 'myfile.txt');
  {$I-}
  reset(f);
  if(IOResult <> 0) then
    raise; // error
  {$I+}
  s2:='';
  While(not(EOF(f))) do begin
    ReadLn(f, s);
    s2:=Trim(s2+copy(s, 1, pos('%', s)-1));
  end;
  CloseFile(f);
  showmessage(s2);

Как-то так. Могут быть ошибки, но думаю сможешь сам исправить.