[Bars1992]

Вот мой вариант:

Код:

var
 login,pass,s:string;
 f:TextFile
 begin
  assignFile(f,FileWay);
  reset(f);
  wile npt EOF(f) do
   begin
     readln(f,s);
      login:=copy(s,0,pos(':',s)-1);
      pass:=copy(s,pos(':',s)+1,length(s)-pos(':',s)+1);
      //далее созраняешь куда нужно и так пока всё не считаешь
   end;
 end;